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Capítulo 1 

Curso de introducción 


Parte 1: Instalación y mantenimiento 


El CPC6128 puede ser instalado con: 

1. El monitor de fósforo verde AMSTRAD GT65. 

2. El monitor de color AMSTRAD CTM644. 

3. O la unidad modulador/fuente de alimentación AMSTRAD MP2 conectada a 
un televisor de color (en UHF). 


Conexión del ordenador a la red 


El CPC6128 sólo se puede conectar a la red de 220-240V c.a., 50 Hz. 

No extraiga ningún tornillo ni trate de abrir la carcasa del ordenador, del monitor ni 
de la unidad MP2. Lea y respete las advertencias que se dan en la etiqueta de caracterís¬ 
ticas, que está situada en la cara inferior de la carcasa del ordenador y de la fuente de 
alimentación: 


Desconectar cuando no se utilice. 
¡ATENCIÓN! 

No manipular en su interior 

y en la cara posterior de los monitores: 

NO ABRIR SIN ANTES DESCONECTAR 
LA TENSIÓN DE RED 
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Conexión del ordenador a un monitor 


(Si va a utilizar su CPC6128 con la unidad MP2, no es necesario que lea esta sección.) 

1. Cerciórese de que el monitor no está conectado a la red. 

2. Conecte el cable que sale de la cara frontal del monitor y termina en una clavija 
grande (DIN de 6 patillas) al zócalo posterior del ordenador marcado con 

MONITOR. 

3. Conecte el cable que sale de la cara frontal del monitor y termina en la clavija más 
pequeña al zócalo posterior del ordenador marcado con 5V c.c. 

4. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija 
pequeña (12V c.c.) al zócalo que hay en la cara frontal del monitor. 
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Conexión del ordenador a la unidad 
modulador/fuente de alimentación MP2 


La MP2 es una unidad opcional que el usuario puede querer adquirir si está utilizando 
actualmente el CPC6128 con el monitor de fósforo verde GT65. La MP2 permite co¬ 
nectar el CPC6128 a un televisor de color doméstico, para así disfrutar de las posibili¬ 
dades de color del CPC6128. 

La MP2 se debe colocar inmediatamente a la derecha del CPC6128. 

1. Cerciórese de que la MP2 no está conectada a la red. 

2. Conecte el cable de la MP2 que termina en una clavija grande (DIN de 6 patillas) 
al zócalo posterior del ordenador marcado con MONITOR. 

3. Conecte el cable de la MP2 que termina en una clavija pequeña al zócalo posterior 
del ordenador marcado con 5V c.c. 

4. Conecte el cable que sale de la MP2 y termina en una clavija de antena a la entrada 
de antena de su televisor. 

5. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija 
pequeña (I2V c.c.) al zócalo posterior de la MP2. 


CLAVIJA 
DE RED 


CARA POSTERIOR DE LA 
UNIOAD MODULADOR/FUENTE 
DE ALIMENTACIÓN MP2 


CARA POSTERIOR 
DEL ORDENADOR 
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Encendido del sistema CPC6128 con GT65 o con 
CTM644 


(Si va a utilizar su CPC6128 con la unidad MP2, no es necesario que lea esta sección.) 

Una vez conectado el sistema según se ha explicado en secciones anteriores, inserte la 
clavija de red en la toma mural. Para encender el sistema, pulse el botón ALIMENTA¬ 
CIÓN que está en la cara frontal del monitor, de modo que quede en posición «ENC.». 
Si este botón está en «APAG.», el suministro de corriente al resto del sistema queda 
interrumpido. 

Encienda el ordenador mediante el interruptor deslizante marcado con ALIMENTA¬ 
CIÓN, que está en su cara derecha. 

En este momento se debe encender el piloto rojo (ENC) que está a la derecha del tecla¬ 
do; en el monitor se verá el siguiente mensaje: 


Amstrad 128K Microconputer (s3) 

©1985 Alustrad Consuner Electronics pie 
and Loconotive Software Ltd. 

BASIC 1.1 
Beady 


Para evitar la fatiga visual excesiva, ajuste el control de brillo marcado con BRILLO 
al mínimo necesario para que el texto se vea cómodamente, sin que deslumbre ni resulte 
borroso. 

El control BRILLO se encuentra en la parte inferior de la cara frontal del monitor 
GT65 y en el lateral derecho del CTM644. 

En el caso del GT65, puede ser necesario ajustar los controles de contraste (CON¬ 
TRASTE) y de fijación del cuadro vertical (SINCRO. VERT.), que están en el panel 
frontal. 

El mando de CONTRASTE se debe poner en el mínimo compatible con la cómoda vi- 
sualización de los textos. 
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Encendido del sistema CPC6128 con la unidad 
modulador/fuente de alimentación MP2 


Una vez conectado el sistema según se ha explicado en secciones anteriores, inserte la 
clavija de red en la toma mural. Encienda el ordenador mediante el interruptor desli¬ 
zante que está en su lateral derecho. 

En este momento se debe encender el piloto rojo que está en el centro del teclado. Aho¬ 
ra debe sintonizar el televisor para recibir las señales del ordenador. 

Si su televisor tiene un selector de canales de botonera, pulse el botón correspondiente 
a un canal n o utilizado. Ajuste el mando de síntoma siguiendo las instrucciones del ma¬ 
nual del televisor (si dispone de un dial de síntoma, pruebe en las proximidades del ca¬ 
nal 36) hasta obtener la siguiente imagen: 

Alustrad 128K Microconputer (s3> 

©1985 Anstrad Consumer Electronics pie 
and Loconotiue Software Lid. 

BASIC 1.1 
Beady 


Trate de conseguir la máxima nitidez posible. El texto aparecerá en color amarillo do¬ 
rado sobre fondo azul. 

Si el televisor tiene un selector de canales rotatorio, gírelo hasta que pueda ver la ima¬ 
gen y ésta sea estable (canal 36, aproximadamente). 
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Anomalías en el funcionamiento del sistema 

Al pulsar el interruptor de alimentación no se ilumina la pantalla 

— Apague el interruptor pulsándolo por segunda vez. 

— Desconecte el ordenador de la toma mural. 

Enchufe en ella una lámpara que usted sepa que funciona para comprobar que 
llega corriente. 

— Deconecte la impresora. 

— Si tiene instalado un interfaz RS232, desconéctelo. 

Vuelva a enchufar el ordenador en la toma mural; si hay algún interruptor que 
controle el paso de comente al enchufe, enciéndalo. 

— Finalmente, vuelva a pulsar el interruptor de alimentación. 

Si el problema persiste, consulte a su distribuidor. 

No se puede introducir el disco en la unidad 

— Compruebe que no hay otro disco en la unidad. Si lo hay, se verá la etiqueta. 
En tal caso pulse el botón de eyección para extraerlo. 

Cerciórese de que no está intentando introducir el disco al revés (véase la sección 


Limpieza 


Para la limpieza de la pantalla y el teclado recomendamos el uso de espumas antiestáti¬ 
cas en aerosol. En ningún caso se puede utilizar productos limpiadores espirituosos. 

Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE INSTALACIÓN 1, 2, 4, 5, 6, 7 y 8 (pág. 4) 

NOTA DE OPERACIÓN 1 (pág. 4) 
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Parte 2: Conexión de los periféricos ... 


En esta sección vamos a explicar cómo se conectan al sistema CPC6128 diversos perifé¬ 
ricos, cuyo funcionamiento se explica en las correspondientes secciones de este manual. 


Joysticks (bastoncillos de mando) 

El joystick AMSOFT modelo JY2 es un aparato opcional que el usuario puede desear 
adquirir si va a utilizar su CPC6128 con programas de juegos diseñados para aprove¬ 
char las posibilidades de control y disparo del joystick. 

Conecte el cable procedente del joystick en el zócalo marcado con MANDO A DIS¬ 
TANCIA en el ordenador. El CPC6128 admite dos joysticks; el segundo se conecta en 
el zócalo que hay en la peana del primero. 

Con este ordenador se puede utilizar también el joystick AMSOFT modelo JY1. 

En secciones posteriores de este manual daremos más información sobre los joysticks. 


Magnetófono de cassettes 

Los programas pueden ser leídos o grabados en cinta, en lugar de en disco. Más adelan¬ 
te describiremos las órdenes que indican al ordenador cuándo debe leer o enviar datos 
a la cinta o al disco. 

Para conectar el magnetófono al ordenador se requiere el cable AMSOFT CL1, o un 
cable estándar equivalente. 

Inserte el extremo del cable que termina en una clavija grande (DIN de 5 patillas) en 
el zócalo del ordenador que está marcado con CINTA. 

Inserte la clavija en la que termina el cable azul en la hembra del magnetófono que esté 
marcada con REMOTE o REM (control remoto, si lo tiene). 

Inserte la clavija en la que termina el cable rojo en la hembra del magnetófono que 
esté marcada con MIC, COMPUTER IN o INPUT (entrada). 

Inserte la clavija en la que termina el cable blanco en la hembra del magnetófono que 
esté marcada con EAR, COMPUTER OUT o OUTPUT (salida). 
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Es importante observar que el éxito en la transferencia de datos entre el CPC6128 y 
la cinta depende en gran medida del correcto ajuste del control de nivel o de volumen 
del magnetófono. Si encuentra dificultad en la grabación o lectura de los programas, 
pruebe con diferentes posiciones del control de volumen y de tono del magnetófono 
hasta optimizar los resultados, o pruebe con la otra cara de la cinta si en ella hay la 
misma grabación. 


Impresora 

El CPC6128 puede ser conectado a cualquier impresora de interfaz tipo Centronics. 
Para conectar el ordenador a la impresora AMSTRAD, basta con utilizar el cable sumi¬ 
nistrado con ésta. 

Para conectar cualquier otra impresora de tipo Centronics se necesita el cable 
AMSOFT PL1. 

Inserte el extremo del cable que termina en un conector plano en el zócalo del ordena¬ 
dor marcado con IMPRESORA. 

Inserte el otro extremo del cable, que termina en el conector de tipo Centronics, en el 
zócalo de la impresora. Si la impresora tiene abrazaderas de seguridad, fíjelas en las 
ranuras que hay en los laterales del conector. 

Más adelante daremos información sobre el manejo de la impresora. 


Segunda unidad de disco (AMSTRAD FD1) 


La unidad AMSTRAD FD1 se puede incorporar al sistema como segunda unidad de 
disco. Las ventajas de disponer de dos unidades serán particularmente evidentes para 
el usuario habitual de CP/M, pues muchos programas están diseñados para funcionar 
con los discos de programas en una unidad y los ficheros de datos en la otra. 

El sistema operativo CP/M siempre requiere que los programas se carguen desde el dis¬ 
co (no permite el acceso a la ROM de BASIC). CP/M permite acceder a ficheros múlti¬ 
ples mediante una técnica que hace posible la ejecución de programas que de otra for¬ 
ma no cabrían en la RAM; pero en muchas ocasiones el disco de programas contiene 
tantos, que prácticamente no queda espacio para los ficheros de datos. 

Gracias a la versatilidad de los programas de ayuda suministrados con los discos del 
sistema, todas la operaciones de mantenimiento de ficheros (copia, borrado, etc.) se 
pueden realizar con una sola unidad de disco. Sin embargo, la segunda unidad facilita 
y acelera estos procesos, y reduce notablemente el riesgo de accidentes. 

Para conectar la unidad FD1 al CPC6128 se requiere el cable AMSOFT DI2. 


1/8 


Curso de introducción 



Inserte el conector plano mayor en el zócalo del ordenador que está marcado con 

UNIDAD DE DISCO 2. 

Inserte el otro conector más pequeño del cable en el zócalo de unidad FD1. 

Ambos conectores tienen marcada la cara superior; el cable plano va hacia abajo. En 
caso de duda consulte a su distribuidor. 

NO OLVIDE que, antes de encender o apagar la segunda unidad de disco, debe extraer 
los discos que pueda haber en ambas unidades y apagar el sistema. Si se modifica algu¬ 
na conexión mientras el sistema está encendido, lo más probable es que se pierda o alte¬ 
re el programa actualmente residente en la memoria. Tenga la precaución de grabar 
el programa antes de modificar las conexiones de los periféricos. 

Si tiene conectada una FD1 al CPC6128, encienda primero la FD1 con el interruptor 
deslizante que está en el panel posterior; después encienda el CPC6128 con el interrup¬ 
tor deslizante que está en la cara posterior del ordenador. Deberán iluminarse los dos 
pilotos, rojo y verde, de la FD1; esto indicará que la segunda unidad de disco está pre¬ 
parada para su uso. 

Más adelante explicaremos el funcionamiento de la segunda unidad de disco. 


Amplificador y altavoces externos 


El CPC6128 puede ser conectado a un sistema de amplificador y altavoces estereofóni- 
cos, única forma de apreciar plenamente las capacidades sonoras del ordenador. 

El cable de entrada al amplificador debe teminar en una clavija estéreo de 3.5 mm, que 
se inserta en la hembra marcada con ESTEREO en el ordenador. 

Las conexiones de la clavija deben ser las siguientes: 

Extremo de la clavija: canal izquierdo. 

Anillo intermedio: canal derecho. 

Cuerpo de la clavija: masa. 

El CPC6128 entrega a la salida ESTEREO una señal de nivel constante; así pues, el 
volumen, el balance y el tono deben ser regulados con los mandos del amplificador 
externo. 

También se pueden conectar auriculares de alta impedancia, aunque el volumen no po¬ 
drá ser regulado por el mando de VOLUMEN del ordenador. Los auriculares de baja 
impedancia, que son los habitualmente utilizados con los equipos de alta fidelidad, no 
pueden ser conectados directamente al ordenador. 

Más adelante explicaremos cómo enviar sonidos a cada uno de los tres canales del 
CPC6128. 
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Dispositivos de expansión 


Al ordenador CPC6128 se le pueden conectar diversos dispositivos de expansión (inter¬ 
faz serie, módem, lápiz fotosensible, ROMs, etc.) por medio del zócalo marcado con 
EXPANSION que está en la cara posterior del ordenador. 

También se puede conectar en ese zócalo el amplificador/sintetizador de voz AMSOFT 
modelo SSA2. 

Las conexiones del zócalo EXPANSION se describen en el capítulo titulado ‘Para su 
referencia ...’. 

Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE INSTALACIÓN 6 y 7 (pág. 4) 

NOTAS DE OPERACIÓN 4 y 8 (pág. 5) 


1/10 


Curso de introducción 


Parte 3: En cuanto a los discos 


El AMSTRAD CPC6128 usa discos compactos de 3 pulgadas. Le sugerimos que no co¬ 
rra riesgos indebidos y que, para garantizar la fiabilidad de la transferencia de datos 
del ordenador a los discos, utilice solamente los discos AMSOFT CF2. Puede, no obs¬ 
tante, utilizar también los de otras marcas de máxima garantía. 


Inserción 

Se pueden utilizar las dos caras del disco, aunque no simultáneamente. La forma co¬ 
rrecta de insertar los dicos es con la etiqueta hacia fuera (visible) y con la cara que se 
va a usar hacia arriba: 



Curso de introducción 


1/11 



Protección contra escritura 


En el extremo posterior izquierdo de cada cara del disco se puede ver una flecha que 
señala un pequeño orificio obturado: es el orificio de ‘protección contra escritura’, cu¬ 
ya misión es evitar el borrado accidental del contenido del disco: 



Cuando el orificio está cerrado, el ordenador puede ‘escribir’ en el disco. En cambio, 
si el orificio está abierto, el disco está protegido contra la escritura, impidiendo el bo¬ 
rrado accidental de programas o datos valiosos. 

Los diversos fabricantes utilizan diferentes mecanismos de apertura y cierre del orifi¬ 
cio. En los discos AMSOFT CF2 el funcionamiento es como sigue: 

Para abrir el orificio, haga deslizar el pequeño obturador situado en la esquina izquier¬ 
da del disco: 

Orificio de protección A 



Para cerrar el orificio, haga deslizar el obturador en sentido contrario. 
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En algunos discos compactos el mecanismo consiste en una pequeña palanca de plásti¬ 
co situada en una ranura que tienen en la esquina izquierda: 


Palanca 



(CERRADO) 


Para abrir el orificio en los discos de este tipo, desplace la palanca hacia el centro del 
disco, ayudándose con la punta de un bolígrafo u objeto similar: 



Observe que, cualquiera que sea el mecanismo de obturación, el efecto es siempre el 
mismo: el disco queda protegido cuando el orificio está abierto. 


IMPORTANTE 

Cerciórese de que los orificios de protección de sus discos maestros de CP/M están 
abiertos. 
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Después de introducido el disco 

En la cara frontal de la unidad de disco hay un piloto rojo y un botón de eyección: 


Piloto 

rojo 



J 


Jiniinnnnnnnjinnmum 


Botón de 
eyección 


Piloto 


Cuando está encendido, indica que el ordenador está leyendo datos del disco o escri¬ 
biendo en él. 

Si se ha conectado una segunda unidad de disco (unidad B), su piloto estará encendido 
constantemente, y se apagará cuando se encienda el de la unidad principal (unidad A). 


Botón de eyección 


Al pulsar este botón se expulsa parcialmente el disco, lo que permite que el usuario lo 
extraiga. 


Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE OPERACIÓN 1, 3, 4, 5 y 6 (págs. 4 y 5) 
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Parte 4: Manos al teclado 


Antes de empezar a cargar y grabar programas necesitamos familiarizamos con algu¬ 
nas teclas del ordenador. Si tiene usted alguna experiencia en el manejo de los ordena¬ 
dores, puede omitir la lectura de esta sección. 

Encienda el ordenador y verá el mensaje inicial en la pantalla. Vamos a explicar las 
funciones de las diversas teclas: 



Las cuatro teclas que están marcadas con sendas flechas (y situadas en el extremo infe¬ 
rior derecho del teclado) son las ‘teclas de movimiento del cursor’. Estas teclas sirven, 
pues, para mover el cursor por la pantalla. 

Púlselas todas ellas y practique hasta familiarizarse con su funcionamiento. 


—1 

RE 

iTURN 



__ 1 


La tecla [RETURN] sirve para introducir en el ordenador lo que usted ha tecleado. Una 
vez pulsada la tecla [RETURNJ, el cursor salta automáticamente a la línea siguiente de 
la pantalla. Siempre que escriba una orden directa o una instrucción de programa, pul¬ 
se [RETURN) al final. 

De ahora en adelante escribiremos [RETURN] para indicar que se debe pulsar esta tecla 
al terminar de teclear órdenes o instrucciones de programa. 
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INTRO 


1 _ 


En circunstancias normales (esto es, si no se modifica por programa su función), esta 
tecla tiene el mismo efecto que [RETURN] y puede ser utilizada en su lugar. Sin embar¬ 
go, al igual que las restantes teclas de función del teclado numérico, [INTRO] puede 
ser redefinida, según explicaremos más adelante. 


«-B0RR 


Esta tecla sirve par borrar el carácter (letra, número o signo) que está a la izquierda 
del cursor. 

Teclee abcd y observe que el cursor queda inmediatamente a la derecha de la letra d. 
Para borrar la d, pulse la tecla [<-BORR]. Si la mantiene pulsada durante algún tiem¬ 
po, verá cómo se borran también las otras tres letras. 



MAYS 


1 _ 


Hay dos teclas [MAYS], una a cada lado del teclado. Si mantiene pulsada una de ellas 
al tiempo que pulsa una tecla literal (de letras), en la pantalla aparecerá la correspon¬ 
diente letra en mayúscula. 

Escriba la letra e, pulse la tecla [MAYS] y, antes de soltarla, vuelva a teclear la e. En 
la pantalla verá lo siguiente: 

eE 

Escriba ahora unos cuantos espacios (manteniendo pulsada durante algún tiempo la 
barra espadadora). Para probar el efecto de [MAYS] con las teclas numéricas, escriba 
el 2, pulse [MAYS] y, sin soltarla, vuelva a escribir el 2. El la pantalla aparecerá lo 
siguiente: 

2 " 
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Haga pruebas con las diferentes teclas de caracteres para observar su efecto con y sin 

[MAYS]. 



FIJA 

MAYS 


_1 


Su efecto es en cierto modo similar al de [MAYS]. Con sólo pulsarla una vez, las letras 
que se escriban a continuación aparecerán en mayúsculas en la pantalla, pero, en cam¬ 
bio, las teclas numéricas y de signos no resultan afectadas. 

Pulse [FIJA MAYS] una sola vez y luego escriba lo siguiente: 

abcde-f 123456 
En la pantalla aparecerá: 

ABCDEF123456 

Observe que las letras han sido convertidas a mayúsculas y que, sin embargo, los núme¬ 
ros no han sido convertidos a los signos que están grabados en la parte superior de las 
teclas numéricas. Para obtener estos signos se pulsa la tecla correspondiente en combi¬ 
nación con [MAYS], Escriba ahora lo siguiente, manteniendo pulsada la tecla 

[MAYS]: 

abcde-fl23456 

En la pantalla aparecerá: 

ABCDEF!"#$%& 

Para volver a caracteres normales (en minúsculas), pulse por segunda vez [FIJA 
MAYS], 



FIJA 

MAYS 

i_, 


_ 



CONTROL 


1_1 


Si lo que desea es obtener letras mayúsculas y los signos marcados en la parte superior 
de las teclas, sin tener que mantener pulsada la tecla [MAYS], puede hacer lo siguiente: 
mantenga pulsada la tecla [CONTROL] y pulse [FIJA MAYS] una sola vez. Para com¬ 
probar el efecto de esta combinación, escriba lo siguiente: 
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abcde-f 123456 


En la pantalla aparecerá: 

ABCDEF!"#$%& 

En esta situación, se pueden escribir números utilizando el teclado numérico (teclas fO 
a f9) que está a la derecha del teclado principal. 

Manteniendo pulsada la tecla [CONTROL] al tiempo que se pulsa [FIJA MAYS] se 
vuelve al modo anterior (es decir, a minúsculas o a bloqueo de mayúsculas). Si el modo 
al que ha vuelto es a bloqueo de mayúsculas, pulse [FIJA MAYS] para retornar al mo¬ 
do normal, esto es, a minúsculas. 



Esta tecla borra el carácter que está bajo el cursor. 

Escriba ABCDEFGH. El cursor ha quedado a la derecha de la última letra 0a H). Pulse 
cuatro veces la tecla 0- El cursor se ha movido cuatro posiciones hacia la izquierda, 
de modo que está superpuesto a la letra E. 

Observe que la letra E es visible a través del cursor. Pulse [CLR] y observe cómo desa¬ 
parece la letra E y cómo se mueven hacia la izquierda las letras FGH; bajo el cursor 
queda la F. Pulse durante unos instantes [CLR]: primero desaparece la F, y luego la 
G y la H. 



ESC 


1_1 


Esta tecla se utiliza para abandonar una función que el ordenador esté realizando. Si 
se pulsa [ESC] una vez, el ordenador interrumpe su tarea momentáneamente, y la rea¬ 
nuda si a continuación se pulsa cualquier otra tecla. 

Si se pulsa [ESC] dos veces seguidas, el ordenador abandona definitivamente la tarea 
que está realizando y queda a la espera de otras órdenes. 


1/18 


Curso de introducción 



Importante 


Cuando se han escrito 40 caracteres en una línea, el cursor está en el extremo derecho 
de ella; el siguiente carácter aparecerá automáticamente al principio de la línea siguien¬ 
te. Esto significa que no se debe pulsar [RETURN], a diferencia de lo que se haría si 
se estuviera trabajando con una máquina de escribir, en la que se ha de teclear el retor¬ 
no del carro al acercarse al final de cada línea. 

El ordenador realiza esta función automáticamente; ante un [RETURN] indebido, 
reaccionará con un mensaje de error, generalmente Syntax error, bien en el acto o 
bien más tarde, cuando se ejecute el programa. 


Syntax error (error de sintaxis) 

Cuando en la pantalla aparece el mensaje Syntax error, el ordenador está diciendo 
que no ha entendido la orden que se le ha dado. 

Por ejemplo, escriba 

printt [RETURN! 

En la pantalla aparecerá el mensaje: 

Syntax error 

Esto ocurre porque el ordenador no entiende la instrucción printt. 

Si el mismo error se comete en una línea de programa, tal como 

10 printt "abe" [RETURN3 

en mensaje Syntax error no aparece hasta que se ejecuta el programa. Escriba: 

run [RETURN3 

(Esta orden pide al ordenador que ejecute el programa que tiene en este momento alma¬ 
cenado en la memoria.) En la pantalla aparece: 

Syntax error in 10 
10 Hrir.tt "abe" 

Este mensaje indica en qué línea se ha detectado el error y exhibe la línea con el cursor 
ya preparado para que el usuario pueda corregirla. 
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Lleve el cursor, con la tecla Q, hasta una letra t de printt. Pulse [CLR] para borrar 
la t que sobra y luego pulse [RETURN] para introducir la línea corregida en el 
ordenador. 

Escriba ahora: 

rur. [RETURN] 

El ordenador ha entendido la instrucción; de hecho, ha escrito en la pantalla: 
abe 


Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE INSTALACIÓN 4 y 5 (pág. 4) 

NOTA DE OPERACIÓN 1 (pág. 4) 
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Parte 5: Carga de programas ... 


Vamos a hacer una demostración de lo rápida que es la carga de programas grabados 
en disco. Encienda el equipo, inserte la cuarta cara de los discos maestros de CP/M 
(cara marcada con ‘Side 4’ hacia arriba) y teclee lo siguiente: 

run "rointime.dem" [RETURN3 

Al cabo de unos segundos el programa habrá quedado cargado en la memoria del orde¬ 
nador. Responda a la pregunta de si está utilizando un monitor de fósforo verde 
(“green monitor”; teclee Y para ‘sí’, o N para ‘no’) y podrá ver una demostración del 
juego ‘R oland in Time’ en la pantalla. Quizá se anime a comprarlo. 

Cuando haya terminado de ver la demostración, puede ‘escapar’ del programa de la 
siguiente forma: pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, pulse 
[ESC]. Esta acción reinicializa por completo la máquina; llévela a cabo siempre que 
quiera volver a la situación en que se encuentra la máquina cuando acaba de encender¬ 
la. (Cuando se reinicializa el ordenador de esta forma, no es necesario extraer el disco 
que pueda haber en la unidad.) 

Si el programa no se ha cargado normalmente, estudie el mensaje que ha aparecido en 
la pantalla para averiguar qué ha ocurrido. Por ejemplo, 

Drive A; di se missing 
Retry, Ignore or Cancel? 

significa que no ha insertado el disco, o que no lo ha hecho correctamente, o quizá que 
lo ha puesto en la unidad B. 

ROINTIME.DEM not found 

significa que no ha puesto el disco correcto, o que ha puesto la otra cara, o que no 
ha tecleado correctamente el nombre del programa, ROINTIME.DEM. 

Si aparece el mensaje 
Bad command 

lo más probable es que haya tecleado mal ROINTIME.DEM, quizá incluyendo un es¬ 
pacio o un signo de puntuación. 

Type misrnatch 

significa que ha omitido las comillas ("). 
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Syntax error- 

indica que ha tecleado incorrectamente la orden run. 

El mensaje 

Drive A: r-ead -fail 
Retry, Ignore or Cancel? 

indica que el ordenador no ha conseguido leer los datos grabados en el disco. Comprue¬ 
be que el disco que ha insertado es el correcto y pulse R (de Retry, ‘volver a intentarlo’). 
Este es el mensaje que aparece siempre que se ha estropeado un disco por dejarlo den¬ 
tro de la unidad al apagar o encender el sistema. 

Cuando hayamos explicado cómo hacer copia de los discos, copie sistemáticamente to¬ 
dos los programas valiosos, en particular los discos maestros de CP/M. 


Carga de programas AMSOFT y del programa 
WELCOME 


Esperamos haberle abierto el apetito, así que vamos a cargar un juego. 

Inserte en la unidad un disco de juegos y teclee: 

r un "di se" [RETURN] 

Al cabo de unos segundos el juego estará cargado y en marcha. Si teclea run"disc" 
con el disco maestro de CP/M (cara 4) instalado en la unidad, podrá ver y oír el progra¬ 
ma de demostración ‘Welcome’. 

Cuando haya terminado de ver ‘Welcome’, reinicialice el ordenador mediante las teclas 

[CONTROL] [MAYS] [ESC]. 

La orden descrita (run"d¡sc") sirve para cargar casi todos los programas de AMSOFT 
grabados en disco, aunque en ocasiones habrá que teclear algo distinto. En todo caso, 
las instrucciones de carga están impresas en la etiqueta del disco; sígalas siempre 
escrupulosamente. 


Para terminar, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTA DE INSTALACIÓN 6 (pág. 4) 

NOTAS DE OPERACIÓN 1, 5 y 6 (págs. 4 y 5) 
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Parte 6: Empecemos a trabajar 


A estas alturas ya sabemos qué podemos y qué no podemos hacer con el ordenador, 
así como la forma de conectarle periféricos. Sabemos para qué sirven algunas teclas 
del ordenador y cómo cargar programas. Ahora vamos a ver algunas de la órdenes e 
instrucciones que usted puede teclear para que empiecen a ocurrir cosas .... 

Al ordenador le ocurre lo que a los humanos: sólo puede entender instrucciones que 
se le dan en el lenguaje que él conoce. En el caso del ordenador, ese lenguaje es BASIC 
(siglas de Beginners’ All-purpose Symbolic Instruction Code, ‘código de instrucciones 
simbólicas de uso general para principiantes’). Las palabras del vocabulario de BASIC 
son la llamadas ‘palabras clave’, ‘palabras reservadas’ o ‘palabras de instrucción’. Ca¬ 
da una de ellas ordena a la máquina que realice una determinada función. Todos los 
lenguajes tienen sus reglas gramaticales, y BASIC no es la excepción. Aquí, el concepto 
de gramática se reduce al de ‘sintaxis’; de ahí que el ordenador tenga la amabilidad de 
decirnos de vez en cuando que hemos cometido un error de sintaxis: Syntax error. 


Introducción a las palabras clave del BASIC de 
AMSTRAD 


En el tercer capítulo, titulado ‘Lista completa de las palabras clave del BASIC del 
ASMTRAD’, daremos una descripción de todas las palabras del dialecto de BASIC que 
entiende este ordenador. En esta sección vamos a presentar sólo las que se utilizan con 
mayor frecuencia. 


CLS 

Para borrar la pantalla escriba: 

cls IRETURN] 

Como puede observar, la pantalla efectivamente se borra y en su extremo superior iz¬ 
quierdo aparecen la palabra Ready y el cursor ■ . 

Para introducir palabras clave de BASíC__valen tanto las detrás mayúsculas como las, 
minúsculas. 
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PRINT 


Esta instrucción sirve para hacer que el ordenador escriba en la pantalla caracteres suel¬ 
tos, palabras completas, frases o números. Teclee la siguiente orden: 

print "hola" [RETURN] 

En la pantalla puede ver: 

hola 

Las comillas "" indican al ordenador qué es lo que debe escribir. La palabra hola apa¬ 
reció en la pantalla en cuanto se pulsó [RETURN]. Teclee 

cls CRETURN] 

para borrar la pantalla. 


RUN 

En el ejemplo anterior hemos visto cómo obedece el ordenador una orden directa. Pero 
esto no siempre es deseable, ya que el ordenador olvida la orden inmediatamente des¬ 
pués de ejecutarla. Podemos almacenar en la memoria del ordenador una sucesión de 
instrucciones para que más tarde sean ejecutadas en un orden determinado. Tal suce¬ 
sión de instrucciones constituirá un programa. Las instrucciones de BASIC que pode¬ 
mos incluir en un programa tienen la forma que hemos visto, pero van precedidas de 
un número de línea. Si el programa consta de más de una instrucción, los números de 
línea indican al ordenador en qué orden debe ejecutarlas. Cuando después de teclear 
una línea de instrucción se pulsa [RETURN], la línea queda almacenada en la memoria 
hasta que pidamos al ordenador que ejecute el programa. Escriba lo siguiente: 

10 print "hola” [RETURN! 

Observe que en este caso, aunque ha pulsado [RETURN], la palabra hola no ha apare¬ 
cido en la pantalla, sino que ha quedado almacenada en la memoria del ordenador, 
incluida en la línea de programa. Para ejecutar este pequeño programa debemos dar 
al ordenador la orden directa run. Escriba 

run [RETURN] 

Ahora sí aparece la palabra hola en la pantalla. 

Observe algo interesante: en lugar de escribir la palabra print completa, basta con te¬ 
clear el signo de interrogación ?; por ejemplo, 

10 ? "hola" [RETURN] 
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LIST 


Cuando se tiene un programa almacenado en la memoria, se puede comprobar su con¬ 
tenido haciendo un ‘listado’. Escriba 

list CRETURN] 

En la pantalla aparece 

10 PRINT "hola" 
que es la única línea de nuestro .programa. 

Observe que ahora la palabra PRINT está en mayúsculas. Esto nos indica que el orde¬ 
nador ha reconocido PRINT como palabra clave de BASIC. 

Escriba cls[RETURN] para borrar la pantalla. Observe que, aunque se ha borrado el 
texto que había en la pantalla, el programa sigue estando en la memoria del ordenador. 


GOTO 

Esta instrucción pide al ordenador que salte de la línea actual a la línea especificada, 
para no ejecutar un grupo de instrucciones, si el salto es hacia delante, o para formar 
un bucle, si el salto es hacia atrás. Escriba 

10 print "hola" CRETURN3 
20 goto 10 CRETURN3 

y luego 

run CRETURN3 

Como puede ver, el ordenador escribe repetidamente la palabra hola, a la izquierda 
de la pantalla, saltando cada vez a la línea siguiente. La razón es que, al llegar a la línea 
20, la instrucción goto 10 reenvía el programa a la línea 10. 

Para detener el programa, pulse [ESC] una vez. Para reanudarlo, pulse cualquier otra 
tecla. Para detenerlo definitivamente, de forma que se pueda introducir otras instruc¬ 
ciones, pulse [ESC] dos veces. 

Escriba ahora 

els CRETURN3 
para borrar la pantalla. 
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Para inhibir el salto a la línea siguiente de la pantalla cada vez que el ordenador escriba 
hola, introduzca nuevamente el programa anterior, pero poniendo ahora un signo de 
punto y coma (;) al final de las comillas: 

10 print "hola"; CRETURN] 

20 goto 10 CRETURN] 
run CRETURN] 

El punto y coma indica al ordenador que debe escribir el siguiente grupo de caracteres 
inmediatamente a la derecha del anterior (suponiendo que quepan en la misma línea). 

Para detener este programa pulse [ESC] dos veces. Escriba otra vez la línea 10, pero 
poniendo una coma (,) en lugar del punto y coma (;): 

10 print "hola", CRETURN] 
run CRETURN] 

Como puede observar, la coma ha indicado al ordenador que escriba el siguiente grupo 
de caracteres 13 posiciones a la derecha del lugar en que empezó a escribir el anterior. 
Esta función es útil cuando se quiere visualizar información en columnas. No obstante, 
si el número de caracteres del grupo es mayor que 12, la escritura empezará otras 13 
posiciones más a la derecha, de forma que entre columnas siempre quedará algún 
espacio. 

Este número, 13, es modificable con la instrucción ZONE, que describiremos más 
adelante. 

Para detener este programa, pulse [ESC] dos veces. Para borrar completamente la 
memoria del ordenador, pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, 
pulse [ESC]. 


INPUT 


Esta instrucción hace que el ordenador quede a la espera de que el usuario introduzca 
información por el teclado; por ejemplo, en respuesta a alguna pregunta. 

Escriba lo siguiente: 

10 input "cuantos a?íos tienes" ¡edad ERETURN] 

20 print "pues no aparentas teneredad; 

"afros." CRETURN] 
run CRETURN] 

En la pantalla aparece la pregunta: 
cuantos afros tienes? 
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Escriba su edad y pulse [RETURN]. Si, por ejemplo, su edad es 18 años, el programa 
escribe lo siguiente: 

pues no aparentas tener 18 atros. 

Este ejemplo ilustra la utilización de input combinada con una variable numérica. He¬ 
mos puesto la palabra edad al final de la línea 10, y por consiguiente en la memoria, 
para que el ordenador pueda asociarla al número que el usuario introduzca; después, 
en la línea 20, en lugar de edad escribirá ese número. Nada nos obligaba a elegir preci¬ 
samente ese nombre, edad, y podíamos haber utilizado una letra cualquiera, por ejem¬ 
plo, b. 

Reinicialice el ordenador para borrar la memoria (teclas [CONTROL] [MAYS] [ESC]). 
Si queremos captar por el teclado una respuesta que esté formada por caracteres cuales¬ 
quiera (letras solas o letras mezcladas con números), debemos poner el signo de dólar 
($) al final del nombre de la variable. Las variables de este tipo son las que denomina¬ 
mos variables literales. 

Escriba el siguiente programa (observe que en la línea 20 hay que poner un espacio des¬ 
pués de la primera coma, pero no antes de la segunda): 

10 input "como te 11 amas"Jnombre* [RETURN3 
20 print "hola, nombre*;", yo me llamo 
Rolando" [RETURN] 
run [RETURN3 

En la pantalla puede ver: 

como te llamas? 

Escriba su nombre y luego pulse [RETURN]. Si el nombre introducido es, por ejemplo, 
Manolo, el programa escribe: 

hola, Manolo, yo me llamo Rolando 

En este caso hemos usado nombre$ como nombre de la variable literal, pero perfecta¬ 
mente podríamos haber elegido una letra cualquiera, por ejemplo, a$. Vamos a combi¬ 
nar los dos ejemplos anteriores en un solo programa. 

Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. Escriba lo siguiente: 

5 cls [RETURN3 

10 input "como te llamas"Ja* [RETURN] 

20 input "cuantos afros tienes" Jb [RETURN] 

30 print "desde luego, "Ja*;", no aparentas 
tener "J bj "aftos" [RETURN] 
run [RETURN3 
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En este programa hemos utilizado dos variables: a$ para representar el nombre y b 
para representar la edad. En la pantalla aparece la primera pregunta: 

como te llamas? 

Escriba su nombre (supongamos que es Manolo) y luego pulse [RETURN], El ordena¬ 
dor le pregunta ahora: 

cuantos aftos tienes? 

Escriba su edad (supongamos que es 18 años) y luego pulse [RETURIM], 

Si lo que hemos supuesto es cierto, en la pantalla aparecerá la siguiente frase: 

desde luego, Manola, no aparentas tener 18 aftas 

Edición de programas 


Si alguna de las líneas del programa anterior hubiera sido mecanografiada incorrecta¬ 
mente, lo que podría provocar el mensaje de error Syntax error o algún otro, en lugar 
de escribirla de nuevo es posible corregirla (‘editarla’ es como se dice en informática). 
Para ilustrar cómo hacerlo, vamos a escribir incorrectamente el programa: 


5 clss [RETURN! 

10 input "como t llamas"»a$ [RETURN] 

20 input "cuantas aftos tienes" »b [RETURN] 

30 print "desde luego,a$;", no aparentas 
tener" Jb; "afíos" [RETURN] 

En este programa hay tres errores: 

En la línea 5 hemos escrito clss en lugar de cls. 

En la línea 10 hemos escrito t en lugar de te. 

En la línea 30 hemos olvidado poner un espacio entre la coma y el signo de cerrar 
comillas. 

Hay tres métodos para corregir un programa. El primero consiste en escribir nueva¬ 
mente la línea errónea. Al hacerlo, la línea nueva sustituye a la que había en la memoria 
con el mismo número. 

El segundo es el ‘método del cursor de edición’. 

El tercero es el ‘método del cursor de copia’. 
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Método del cursor de edición 

Vamos a corregir el error de la línea 5. 

Escriba lo siguiente: 

edit 5 [RETURN] 

En la pantalla aparece la línea 5, por debajo de la 30, con el cursor situado sobre la 
c de clss. 

Para suprimir la s que sobra, pulse la tecla de movimiento del cursor 0 hasta que éste 
quede sobre la última s de clss; pulse la tecla [CLR] y observe cómo desaparece la s. 

A continuación pulse [RETURN] para introducir la versión corregida de la línea 5 en 
la memoria. Escriba 

list tRETURN3 

y comprobará que la línea ha quedado corregida. 

La orden AUTO, que descibiremos más adelante en este manual, se puede combinar 
con este método para corregir un grupo de líneas sucesivas. 


Método del cursor de copia 

El cursor de copia es un segundo cursor, distinto del que puede ver en este momento 
en la pantalla, que aparece cuando se pulsa [MAYS] en combinación con alguna de 
las teclas de movimiento del cursor. De esta forma, el cursor de copia se separa del cur¬ 
sor ordinario y puede ser llevado a cualquier lugar de la pantalla. 

Para corregir los errores de las líneas 10 y 30, pulse la tecla [MAYS] y, sin soltarla, 
pulse [f] hasta llevar el cursor de copia al principio de la línea 10. Observe que el cursor 
principal no se ha movido, por lo que hay dos cursores en la pantalla. Ahora pulse va¬ 
rias veces [COPIA] hasta que el cursor de copia esté sobre el espacio que hay entre la 
t y la palabra llamas. Observe que el principio de la línea 10 ha sido copiado en la 
última línea de la pantalla y que el cursor principal se ha detenido en la misma columna 
que el de copia. Escriba la letra e, que aparecerá solamente en la línea inferior. 

El cursor ordinario se ha movido, pero el de copia se ha quedado donde estaba. Pulse 
ahora [COPIA] hasta completar la copia de la línea 10. Pulse [RETURN] para transfe¬ 
rir esta versión de la línea 10 a la memoria. El cursor de copia desaparece y el cursor 
ordinario queda por debajo de la nueva línea 10. 
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Para corregir el otro error, mantenga pulsada la tecla [MAYS] y lleve el cursor de copia 
con la tecla jT] hasta el principio de la línea 30. Pulse [COPIA] hasta que el cursor de 
copia quede sobre las comillas que siguen a la coma. Pulse la barra espaciadora una 
vez, con lo que se inserta un espacio en la línea nueva. Pulse [COPIA] y no la suelte 
hasta que haya terminado de copiar el resto de la línea 30; pulse entonces [RETURN]. 

Compruebe que el programa ha quedado correctamente almacenado en la memoria 
escribiendo: 

list [RETURN] 

Nota. Para llevar el cursor (durante el proceso de edición) al principio o al final de una 
línea, pulse la tecla 0 o la 0 una vez manteniendo pulsada al mismo tiempo la tecla 

[CONTROL]. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 


IF 

Las palabras clave IF (si) y THEN (entonces) se combinan para hacer que el ordenador 
realice una determinada acción en función del resultado de una comprobación especifi¬ 
cada. Por ejemplo, en la instrucción 

if 1+1=2 then print "correcto" [RETURN] 

el ordenador comprueba si es cierto que 1 + 1=2 y obra en consecuencia. 

La palabra clave ELSE (si no) da un segundo curso de acción para el caso de que la 
comprobación dé como resultado ‘falso’ (o sea, que la condición no se cumpla). Por 
ejemplo, 

ii 1 + 1=0 then print "correcto" else print "-falso" 

[RETURN] 

Vamos a ampliar nuestro programa anterior con la instrucción IF ... THEN. Escriba 
lo siguiente: 

5 cls [RETURN] 

10 input "como te llamas"5 a* [RETURN] 

20 input "cuantas aftas tienes";edad [RETURN] 

30 i-f edad < 13 then 60 [RETURN] 

40 i-f edad < 20 then 70 [RETURN] 

50 i-f edad > 19 then 80 [RETURN] 

60 print "Bueno, ";a$>", todavía no eres un 
adolescente a 1 os"; edadaptos" : end [RETURN] 

70 print "Bueno, "Ja*;", a tus"; edad ; "aPtos eres 
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un adolescente”:end [RETURN] 

80 print "Que le vamos a hacer, ";a$;", ya no eres 
un adolescente a tus "} edad ; "aífos" [RETURN] 

(Observe que hemos introducido dos símbolos nuevos: <, que significa ‘menor que’ 
y está junto a la tecla de la M, y >, que significa ‘mayor que’ y está junto a la tecla 
de <.) Para comprobar que el programa ha quedado correctamente introducido en la 
memoria escriba 

list [RETURN] 

y a continuación 

run [RETURN] 

Responda a las preguntas que le haga el ordenador y vea qué ocurre. 

En este ejemplo puede observar el efecto de la instrucción IF ... THEN. También he¬ 
mos introducido una palabra clave nueva: END (fin); su efecto es concluir la ejecución 
del programa. Si no estuviera END en la línea 60, el programa continuaría en la línea 
70. Por lo mismo, si no hubiéramos puesto END en la línea 70, el programa no termi¬ 
naría en ella, sino que ejecutaría también la 80. El signo de dos puntos (:) que precede 
a la palabra END separa esta palabra de la instrucción anterior. Este signo se puede 
utilizar para separar instrucciones cuando interese poner varias en una misma línea de 
programa. También hemos incluido la línea 5, en la que borramos la pantalla. En lo 
sucesivo seguiremos haciéndolo, para obtener programas más ‘elegantes’ y evitar 
confusiones. 

Reiniciaiice la máquina pulsando las teclas [CONTROL] [MAYS] [ESC]. 


FOR ... NEXT 

Estas palabras clave se utilizan cuando se desea que una parte del programa se repita 
cierto número de veces. Las instrucciones que deban repetirse son las que se incluyen 
dentro del bucle FOR ... NEXT (para ... siguiente). 

Escriba lo siguiente: 

5 cls [RETURN] 

10 for a=l to 10 [RETURN] 

20 print "operación numero:"ía [RETURN] 

30 next a [RETURN] 
run [RETURN] 

Como puede ver, la acción de la línea 20 ha sido realizada 10 veces, tal como exige la 
instrucción FOR de la línea 10. Observe también cómo se ha ido incrementando de 1 
en 1 la variable a. 
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La palabra clave STEP (paso) se puede incluir en la instrucción FOR ... NEXT para 
especificar la forma en que debe incrementarse o decrementarse la variable de control 
del bucle. Por ejemplo, modifique la línea 10 y ejecute el programa: 

10 for a=10 to 50 step 5 [RETURN3 


El paso también puede ser negativo. Por ejemplo: 

10 -for a=100 to 0 step -10 [RETURN3 
run [RETURN3 


REM 

REM es abreviatura de REMark (observación, comentario). Esta instrucción indica al 
ordenador que debe ignorar todo lo que haya después de ella en la línea de programa. 
Sirve, pues, para hacer anotaciones al programa; por ejemplo, el título, el significado 
de una variable, etc.: 

10 REM Fulminar los invasores [RETURN3 
20 S=5: REM numero de supervivientes [RETURN3 

El signo de comilla ' (que se obtiene de la tecla del 7 con [SHIFT]) es a su vez abreviatu¬ 
ra de :REM. Por ejemplo, 

10 'Fulminar los invasores [RETURN3 
20 S=5 'numero de supervivientes [RETURN3 


GOSUB 

Si en un programa hay un grupo de instrucciones que deban ser ejecutadas varias veces, 
no es necesario escribirlas reiteradamente cada vez que el programa las necesite. Lo que 
se hace es ponerlas en una ‘subrutina’, la cual puede ser invocada siempre que se desee 
mediante la instrucción GOSUB (ir a subrutina) seguida del número de la línea donde 
empieza la subrutina. El final de la subrutina se señala con la instrucción RETURN 
(retorno). Cuando el programa llega a RETURN, la ejecución salta a la instrucción si¬ 
guiente al GOSUB que invocó la subrutina. 

(Los dos programas siguientes no hacen más que escribir la letra de una canción popu¬ 
lar en la pantalla, y por lo tanto no es necesario que se tome la molestia de introducirlos 
en el ordenador. Los hemos incluido aquí solamente para demostrar cómo se pueden 
utilizar las subrutinas para realizar tareas repetidas.) 
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En el siguiente programa: 

10 MODE 2 CRETURN] 

20 PRINT "Dicen que no la quieres y la regalas" 

CRETURN] 

30 PRINT "Peritas de Don Guindo y uvas tempranas" 

CRETURN] 

40 PRINT "Al tribulete" CRETURN] 

50 PRINT "Que no quiere bailar con usted" CRETURN 
60 PRINT "Dejala, dejala sola" CRETURN] 

70 PRINT CRETURN] 

80 PRINT "Es tu cara lo mismo que luna blanca" 

CRETURNI 

90 PRINT "Y tus ojos luceros que la acompasan” 

CRETURN] 

100 PRINT "Al tribulete" CRETURN] 

110 PRINT "Que no quiere bailar con usted" CRETURN] 
120 PRINT "Dejala, dejala sola" CRETURN] 

130 PRINT CRETURN] 

140 PRINT "Tengo yo comparado, nifta, tu rostro" 

CRETURN] 

150 PRINT “Con la luna de enero y el sol de agosto" 

CRETURN] 

180 PRINT "Al tribulete" CENTER] 

190 PRINT "Que no quiere bailar con usted" CRETURN] 
200 PRINT "Dejala, dejala sola" CRETURN] 

210 PRINT CRETURN] 
run CRETURN] 

puede observar que hemos repetido varias instrucciones. Por ejemplo, la línea 40 (prin¬ 
cipio del estribillo) está repetida en la 100 y en la 180. Pongamos todo el estribillo en 
una subrutina, con RETURN al final; entonces podremos ‘llamarlo’ con la instrucción 
GOSUB 180 cada vez que lo necesitemos. El programa queda de la siguiente forma: 

10 MODE 2 CRETURN] 

20 PRINT "Dicen que no la quieres y la regalas” 

CRETURN] 

30 PRINT "Peritas de Don Guindo y uvas tempranas" 

CRETURN] 

40 GOSUB 180 CRETURN] 

80 PRINT "Es tu cara lo mismo que luna blanca" 

CRETURN] 

90 PRINT "Y tus ojos luceros que la acompasan" 

CRETURN] 

100 GOSUB 180 CRETURN] 

140 PRINT "Tengo yo comparado, niPra, tu rostro" 
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[RETURN] 

^50 PRINT "Con la luna de enero y el sol de agosto" 

[RETURN] 

170 END [RETURN] 

180 PRINT "Al tribulete" [RETURN] 

190 PRINT "Que no quiere bailar con usted" [RETURN] 
200 PRINT "Dejala, dejala sola" [RETURN] 

210 PRINT [RETURN] 

220 RETURN [RETURN] 
run [RETURN] 

El ahorro de trabajo es evidente. El correcto diseño de subrutinas es una faceta esencial 
de la informática. Con ellas se puede escribir programas ‘estructurados’; son la base 
para la adquisición de buenos hábitos de programación. 

Cuando escriba subrutinas, tenga en cuenta que no está obligado a saltar siempre a su 
primera línea. Por ejemplo, si hay una rutina en las líneas 500 a 800, podría interesar 
llamarla con GOSUB 500, con GOSUB 640 o con GOSUB 790, según las funciones 
de la subrutina que se desee ejecutar. 

Observe que en el programa anterior hemos incluido la instrucción END en la línea 170 
para aislar la subrutina del resto del programa. De no haberlo hecho, el programa pasa¬ 
ría de la línea 160 a la 180. 


Aritmética sencilla 


El ordenador se puede utilizar como calculadora. 

Para aprender cómo hacerlo, pruebe los siguientes ejemplos. En esta sección utilizamos 
el signo de interrogación ? como abreviatura de print. El ordenador escribe la respues¬ 
ta en cuanto se pulsa [RETURN], 

Suma 

Escriba: 


?3+3 [RETURN] 
6 

(No se teclea el signo =). 
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Escriba: 


78 + 4 [RETURN3 
12 


Resta 

(no confundir el signo menos ‘ — ’ con el de subrayado ). 
Escriba: 

?4-3 [RETURN3 
1 

Escriba: 

?8-4 [RETURNÍ 
4 

Multiplicación 

(el signo de multiplicación es el asterisco *). 

Escriba: 

73*3 [RETURNJ 
9 

Escriba: 

73*4 [RETURN3 
32 

División 

(el signo de dividir es la barra inclinada hacia la derecha, /). 
Escriba: 

73/3 [RETURN3 
1 
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Escriba: 


?8/4 CRETURN3 
2 


División entera 

(es la división en la que se ignora el resto; su signo es la barra inclinada hacia la izquier¬ 
da \). 

Escriba: 

?10\6 CRETURN3 
1 

Escriba: 

?20\3 CRETURN3 
ó 

Módulo 

(la función MOD da el resto de la división entera). 

Escriba: 

?10 MOD 4 CRETURN3 
2 

Escriba: 

?9 MOD 3 CRETURN3 
0 


Raíz cuadrada 

Para hallar la raíz cuadrada de un número se utiliza la función sqr{ ). El número del 
que se va a extraer la raíz (esto es, el radicando) se pone entre los paréntesis. 

Escriba: 

?5qr(16) CRETURN3 
4 

(esto significa V16). 
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Escriba: 


?sqr(100) CRETURN3 
10 

Potenciación 

(en los ordenadores el signo de ‘elevar a una potencia’ es la flecha hacia arriba, que 
en el AMSTRAD se obtiene de la tecla de R sin [MAYS]). 

La potenciación es la operación de elevar un número a una potencia; es decir, multipli¬ 
carlo por sí mismo tantas veces como indica el exponente. Por ejemplo, 3 al cuadrado 
(3 2 ), 3 al cubo (3 3 ), 3 a la cuarta (3 4 ), etc. 

Escriba: 

?3t3 CRETURN3 
27 

(esto significa 3 3 ). 

Escriba: 

?8f4 CRETURN3 
(esto significa 8 4 ). 


Raíz cúbica 

Extraer la raíz cúbica de un número es lo mismo que elevarlo a la potencia V¡. 

Así, para hallar la raíz cúbica de 27 (^27) escriba: 

?27t(1/3) CRETURN3 
3 

Para hallar la raíz cúbica de 125 escriba: 

?125t(1/3) CRETURN3 
5 

Operaciones combinadas (+, *, /) 

El ordenador entiende correctamente las operaciones combinadas, pero es necesario sa¬ 
ber con qué orden de prioridad las realiza. 
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La primera prioridad es para la multiplicación y la división; la segunda, para la suma 
y la resta. Este orden de prioridad es válido solamente para los cálculos en los que no 
intervienen más que estas operaciones. 

Si la operación fuera: 

3 + 7—2*7/4 

se podría pensar que el ordenador la realizaría de la forma: 

3 + 7-2 *7 /4 
= 8 *7/4 
= 56/4 
= 14 


Sin embargo, el proceso de cálculo es como sigue: 

3 + 7—2*7/4 
= 3 + 7-14/4 
= 3 + 7-3.5 
= 10-3.5 
=6.5 

Compruébelo escribiendo 

?3+7-2*7/4 CRETURN3 
6.5 


Para alterar este orden se pueden incluir paréntesis según convenga. El ordenador reali¬ 
za las operaciones internas a los paréntesis antes que las externas. Compruébelo escri¬ 
biendo lo siguiente: 

?<3+7-2)*7/4 [RETURN3 
14 

El orden completo de prioridad de las operaciones matemáticas es el siguiente: 


t 

Potenciación 

MOD 

Módulo 

- 

Cambio de signo 

* y/ 

Multiplicación y división 

\ 

División entera 

+ y - 

Suma y resta 
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Más exponentes 


Cuando en los cálculos van a intervenir números muy grandes o muy pequeños, es con¬ 
veniente a veces utilizar notación científica. La letra E (mayúscula o minúscula) indica 
que el número que está a su derecha es una potencia de 10. 

Por ejemplo, 300 es lo mismo que 3 x 10 2 . En notación científica escribiríamos 3E2. 
Análogamente, 0.03 es igual a 3 x 10 ~ 2 ; en notación científica, 3E-2. Pruebe los si¬ 
guientes ejemplos. 

Puede escribir 

730*10 CRETURN3 
300 


o bien 

?3E1*1E1 CRETURN3 
300 

73000*1000 CRETURN3 ... o bien ... ?3E3*1E3 tRETURNJ 

3000000 

73000*0.001 CRETURN3 ... o bien ... ?3E3*lE-3 [RETURN3 

3 
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Parte 7: Grábelo en disco 


Ahora que ha ejercitado su habilidad como mecanógrafo escribiendo unas cuantas ins¬ 
trucciones, seguramente querrá saber cómo grabar en disco un programa almacenado 
en la memoria del ordenador, para luego cargarlo del disco al ordenador. 

Aunque usted tenga experiencia en la grabación y carga de programas en cinta, hay 
algunas peculiaridades del sistema de grabación en disco que es necesario tener en 
cuenta. 

Hay dos diferencias fundamentales entre los discos y las cintas. La primera es que, a 
diferencia de lo que ocurre con la cintas, para grabar en un disco no basta con sacarlo 
de la caja e introducirlo en la unidad. Los discos nuevos tienen que ser ‘formateados’ 
o ‘inicializados’; enseguida veremos cómo hacerlo. 

La otra diferencia tiene que ver con los nombres que se puede dar a los ficheros. En 
el sistema de grabación en cinta, los nombres de los ficheros prácticamente no siguen 
ninguna regla, salvo la de la longitud; incluso se pueden grabar ficheros sin nombre. 
No ocurre así con el sistema de grabación en disco, en el que los nombres de los ficheros 
deben atenerse a las normas de CP/M, como veremos más adelante. 


Inicialización de discos 

Antes de poder escribir datos en un disco virgen es necesario inicializarlo o formatear¬ 
lo. Esta operación consiste en preparar una especie de estantería en el disco; los estantes 
son los lugares en los que más tarde se va a almacenar la información. 

Al inicializar un disco, éste queda dividido en 360 zonas: 
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Radialmente el disco se divide en 40 pistas circulares, desde la número 0, que es la más 
externa, hasta la 39. Cada pista se divide en 9 sectores. 

Cada sector puede almacenar 512 bytes; por lo tanto, la capacidad total de cada cara 
del disco es de 180K. 

Primeros pasos en la utilización de los discos 
maestros de CP/M 

Antes de poder grabar programas en un disco virgen es necesario inicializarlo, y para 
ello se requiere la cara 1 de los discos maestros de CP/M (suministrados con el 
ordenador). 

Encienda el equipo e inserte la cara 1 de los discos de CP/M en la unidad. Si su sistema 
dispone de dos unidades de disco, utilice la incorporada en el ordenador (unidad A). 

Escriba lo siguiente: 

!cpm [RETURNÍ 

(El símbolo 1 se obtiene de la tecla @ con [MAYS].) 

Al cabo de unos segundos aparecerá en la pantalla el siguiente mensaje: 

CP/M Plus Amstrad Consumer Electronics pie 

Esto es un mensaje de saludo que indica que el ordenador está siendo controlado por 
sistema operativo CP/M. 

Los caracteres A> constituyen un inductor, análogo al Ready de BASIC, que avisa 
al usuario de que el ordenador está a la espera de sus instrucciones. 

Una vez cargado CP/M, ya no se pueden teclear instrucciones de BASIC, pues el orde¬ 
nador no las entendería. 

Por ejemplo, si escribimos 

cls CRETURN3 

el ordenador repite lo tecleado junto con un signo de interrogación: 

CLS? 

lo que indica que no ha entendido la instrucción. 
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Par dar un breve repaso a algunas órdenes de CP/M, escriba: 

dir CRETURN] 

En la pantalla aparece una lista del contenido del disco, incluidas algunas órdenes tran¬ 
sitorias. Una de ellas es DISCKIT3. Escriba: 

discUit3 CRETURN] 

Al cabo de unos instantes verá aparecer en la pantalla el mensaje de presentación de 
DISCKIT3, seguido de: 

One drive -found 

Esto confirma que estamos ejecutando el programa de ayuda DISC KIT y que el orde¬ 
nador sólo ha detectado una unidad de disco (la incorporada en la máquina). 

En cambio, si está conectada la segunda unidad de disco, el mensaje será: 

Two drives found 

En la parte inferior de la pantalla se puede ver el siguiente menú: 


Copy 
Format 
Ver i-f y 

Exit -from program 



Copiar 

Inicializar 

Verificar 

Fin del programa 


Es el menú principal del programa DISCKIT3. Los números recuadrados hacen refe¬ 
rencia a las teclas de función del teclado numérico (marcadas con fO, fl, f4 y f7). Pul¬ 
sando una de estas teclas se elige la opción deseada. 

Obsérvese que la opción 0 de este menú hace que se abandone el programa DISCKIT3 
y se vuelva al modo directo de consola de CP/M (inductor A>). 

Como lo que queremos hacer ahora es inicializar un disco, pulse la tecla de función 
número 4 (f4). 

PRECAUCIÓN 

AL INICIALIZAR UN DISCO SE BORRA SU CONTENIDO ANTERIOR. 
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El programa ofrece un nuevo menú con las diferentes opciones de formato: 


System -format 
Data -format 
Vendor -format 
Exit menú 



Formato de sistema 
Formato de datos 
Formato comercial 
Vuelta al menú 


Pulsando una de las teclas de función (f3, f6 o f9) se selecciona el formato deseado. 
Más adelante explicaremos las diferencias entre los diversos formatos. Por ahora, elija 
el formato de datos pulsando la tecla de función número 6 (f6). 

Obsérvese que al pulsar la tecla . (que está debajo de f3, f6 y f9) se sale de la opción 
de inicialización y se vuelve al menú principal del programa DISCKIT3. 

Después de pulsar la tecla de función número 6 (y suponiendo que no tenga conectada 
la segunda unidad de disco) podrá ver en la pantalla lo siguiente: 



Inicializar con 

Format as Data formato de datos 

Any other key to exit menú Cualquier otra tecla 

para volver al menú 


En este momento debe extraer el disco de CP/M e insertar el disco nuevo, con la cara 
que desee inicializar hacia arriba. 

Pulse ahora la tecla Y (de yes, “sí”), lo que equivale a decirle al ordenador: “de acuer¬ 
do, inicializa el disco”. 

El proceso de inicialización comienza con la pista 0 y termina con la 39; en cada mo¬ 
mento, el número de la pista que está siendo inicializada aparece en el extremo superior 
izquierdo de la pantalla. 

El sistema no permite inicializar un disco que tenga abierto el orificio de protección 
contra escritura. Si lo intenta, el ordenador emite el mensaje: 

D i se write-protected El disco está protegido contra escritura 

Inser-t disc to -format Insertar disco a inicializar 

R-etry or C-anee 1 R-eintentar o C-ancelar 
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Lo que se debe hacer en este caso es pulsar C para cancelar la operación, extraer el 
disco e insertar el disco que sí se quiere inicializar, con el orificio de protección 
obturado. 

Es muy importante no cerrar los orificios de protección de los discos que contengan 
programas valiosos. NO CERRAR NUNCA los orificios de protección de los discos 
maestros de CP/M. 

Cuando termina la inicialización, el ordenador le pide que extraiga el disco recién ini- 
cializado y que pulse cualquier tecla para continuar. 

Una vez hecho esto, puede inicializar otro disco insertándolo en la unidad y pulsando 
de nuevo la tecla Y. Este proceso se puede repetir tantas veces como discos tenga que 
inicializar con este formato concreto. 

Cuando no haya más discos que inicializar, pulse cualquier tecla (distinta de la Y) para 
volver al menú. 

Más adelante explicaremos las opciones Copy y Verify. Por ahora nos basta con haber 
aprendido a inicializar discos con CP/M. Reinicialice la máquina con [CONTROL] 
[MAYS] [ESC], 

Guarde siempre en lugar seguro los discos maestros de CP/M, que son, literalmente, 
la llave del sistema. En un capítulo posterior explicaremos cómo hacer ‘copias de traba¬ 
jo’ de los discos de CP/M, de forma que pueda guardar los originales a salvo de toda 
posibilidad de accidente. 


Inicialización en un sistema de 2 unidades de 
disco 


Siga las instrucciones anteriores: pulse f4 en el menú principal de DISCKIT3 para elegir 
la opción Format (inicialización) y luego pulse la tecla f6 para elegir Data format (for¬ 
mato de datos). 

El ordenador le muestra un tercer menú, en el que se puede elegir la unidad de disco 
que se desee utilizar: 


Format A: 
Format B: 
Exit menú 



Inicializar en A: 
Inicializar en B: 
Vuelta al menú 
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Para no tener que extraer el disco de CP/M (cara 1) de la unidad A, se puede elegir, 
pulsando la tecla f5, la opción Format B:. Ponga en la unidad B el disco que desee 
inicializar. 

Después de elegida esta opción, puede pulsar Y para permitir que continúe el proceso 
de inicialización, o bien cualquier otra tecla para volver al menú principal de DISCKIT3. 

Si elige la opción Format A: (tecla f8), NO OLVIDE extraer de la unidad A el disco 
de CP/M. Inserte luego en ella el disco que desee inicializar. 

NO SE EXPONGA NUNCA AL RIESGO DE BORRAR 
LOS DISCOS MAESTROS DE CP/M 

Ahora que ya tenemos uno o dos discos preparados, vamos a empezar a transferir pro¬ 
gramas de BASIC del ordenador al disco y viceversa. 


Grabación de un programa en disco 

Cuando se tiene un programa en la memoria del ordenador, se lo puede grabar en disco 
mediante la orden 

save "nombre*i" [RETURN3 

Observe que es indispensable dar un nombre al programa. 

El nombre de un fichero grabado en disco consta de dos partes (campos). La primera 
es obligatoria y puede contener hasta 8.caracteres. Se pueden utilizar letras o números, 
pero no espacios ni signos de puntuación. Este primer campo suele contener el nombre 
del programa. 

El segundo campo es opcional. Puede contener hasta 3 caracteres que no sean ni espa¬ 
cios ni signos de puntuación. Los dos campos se separan por un punto (.). 

Si el usuario no especifica el segundo campo, el sistema le asigna automáticamente un 
distintivo: .BAS para ficheros de BASIC o .BIN para ficheros binarios (en código de 
máquina). 

Para practicar la grabación en disco, introduzca un programa corto en la memoria del 
ordenador, inserte en la unidad un disco inicializado y escriba lo siguiente: 

save "ejemplo" [RETURN] 

Al cabo de unos segundos aparecerá en la pantalla el mensaje Ready, lo que indica 
que el programa ha quedado grabado en el disco. (De no ser así, observe los mensajes 
emitidos por el ordenador, pues puede ocurrir que no haya insertado el disco en la uni¬ 
dad correcta, que esté abierto el orificio de protección o que se haya equivocado al te¬ 
clear la orden.) 
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Catálogo 


Una vez grabado el programa, escriba lo siguiente: 

cat [RETURN] 

En la pantalla podrá ver 

Drive A: user 0 
EJEMPLO.BAS 1K 
168 K -free 

o sea, el nombre del fichero, incluido el segundo campo, seguido de la longitud aproxi¬ 
mada en K. En la última línea se indica también el espacio que queda libre en el disco. 


Carga del disco a la memoria del ordenador 

Los programas se pueden cargar y ejecutar con las órdenes siguientes: 

load "nombre* i" [RETURN] 
run [RETURN] 

Pero también se los puede ejecutar directamente con una sola orden: 

run "nombre*i" [RETURN] 

Los programas protegidos sólo se pueden ejecutar por este segundo método. 

¡A y ¡B 

Si tiene conectada la segunda unidad de disco, puede especificar en qué unidad desea 
que se realice cada función escribiendo 

!a [RETURN] 

o bien 

!b [RETURN] 

antes de las órdenes SAVE, CAT o LOAD. 
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Copia de programas de disco a disco 


Para copiar programas de un disco a otro utilizando las órdenes que hemos aprendido 
en esta sección, basta con hacer lo siguiente: cargar el programa en memoria leyéndolo 
del disco original (fuente), sacar el disco, insertar el disco nuevo (destino) y grabar en 
él el programa. 

En cambio, cuando se dispone de dos unidades de disco, es más cómodo insertar el dis¬ 
co fuente en una unidad, por ejemplo la B, y el disco destino en la A. Para copiar un 
programa se escribe entonces lo siguiente: 

!b [RETURNJ 

load " nombre-i i" [RETURNJ 
la [RETURNJ 

save "nombre-fi" [RETURNJ 

Hay cuatro formas de grabar programas con el CPC6128. Una de ellas es la ya 
conocida: 

save "nombre-fi" [RETURNJ 

Las otras tres tienen aplicaciones más expecializadas: 


Ficheros ASCII 

save " nombre-i i", a [RETURNJ 

El sufijo ,a indica al ordenador que debe grabar el programa o los datos en forma de 
fichero de texto ASCII. Este método de grabación de datos es aplicable a los ficheros 
generados por procesadores de textos y otros programas; lo explicaremos más deteni¬ 
damente cuando hablemos de esas aplicaciones. 


Ficheros protegidos 

save " nombr e-f i " , p [RETURNJ 

El sufijo ,p indica al ordenador que el fichero debe ser protegido. Cuando un programa 
está así protegido, no es posible cargarlo (LOAD) para luego listarlo (LIST), ni tampo¬ 
co interrumpirlo con la tecla [ESC] después de haber iniciado su ejecución con RUN. 
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Los programas grabados por este procedimiento sólo pueden ser ejecutados directa¬ 
mente, bien con la orden 

r un "nombre-f i" ERETURN3 
bien con 

Chain "nombre-f i " ERETURN3 

Siempre que se prevea la posibilidad de que más tarde se vaya a corregir o modificar 
un programa, se debe guardar una copia no protegida, esto es, grabada sin el sufijo ,p. 


Ficheros binarios 

save "nombre-f i", b, <4ireccion ínicial> , {longitud en bytes) 
t, (punto de entrada, opcional) 3 ERETURN3 

Esta opción permite realizar un volcado directo de datos desde la memoria RAM del 
ordenador hacia el disco. Además del sufijo ,b, es necesario indicar al ordenador en 
qué dirección de memoria empieza el bloque que se desea transferir, cuál es la longitud 
en bytes y, en su caso, en qué dirección de memoria debe empezar la ejecución cuando 
se cargue el fichero como programa. 


Volcado de pantalla 

Este método de grabación de ficheros binarios permite hacer un volcado de la memoria 
dedicada a la pantalla. El contenido de la pantalla se graba mediante la siguiente orden: 

save "volcpant",b,49152,16334 ERETURN3 

donde 49152 es la dirección en la que empieza la zona de memoria dedicada a la panta¬ 
lla y 16384 es el tamaño de esa zona en bytes. 

Para cargar nuevamente esos datos en el ordenador se escribe: 

load "volcpant" ERETURN3 

En un capítulo posterior de este manual daremos más información sobre la transferen¬ 
cia de datos de un disco a otro, de cinta a disco y de disco a cinta. 

Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio del manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE INSTALACIÓN 5, 6 y 7 (pág. 4) 

NOTAS DE OPERACIÓN 1, 2, 3, 4, 5, 6, 7 y 9 (págs. 4 y 5) 
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Parte 8: Introducción a los modos de 
pantalla, colores y gráficos 

El AMSTRAD CPC6128 puede funcionar en tres modos de pantalla: modo 0, modo 1 
y modo 2. 

Al encenderlo, el ordenador selecciona automáticamente el modo 1. 

Para apreciar las diferencias entre los tres modos, encienda el ordenador y pulse la tecla 
del 1. Manténgala pulsada hasta que se hayan llenado dos líneas de pantalla. Si cuenta 
los unos, observará que hay 40 en cada h'nea. Esto quiere decir que en modo 1 la panta¬ 
lla tiene 40 columnas. Pulse [RETURN]: el ordenador responderá con un mensaje de 
Syntax error, pero no se preocupe; ésta es una forma rápida de obtener nuevamente 
el mensaje Ready, que indica que el ordenador está preparado para recibir nuestras 
instrucciones. 

Escriba ahora: 

mode 0 CRETURN3 

Observará que ahora los caracteres son más grandes. Pulse otra vez la tecla del 1 y no 
la suelte hasta que se hayan llenado dos líneas de la pantalla. Compruebe que ahora 
hay 20 unos por línea. Esto significa que en modo 0 la pantalla tiene 20 columnas. Pul¬ 
se nuevamente [RETURN] y luego escriba: 

mode 2 [RETURN] 

Observe que ahora los caracteres son muy pequeños. Puede comprobar que en modo 
2 la pantalla tiene 80 columnas. 

Resumiendo, 

Modo 0 -> 20 columnas 
Modo 1 -* 40 columnas 
Modo 2 -* 80 columnas 

Finalmente, vuelva a pulsar [RETURN]. 


Colores 


Este ordenador puede manejar 27 colores. En el monitor de fósforo verde (GT65) apa¬ 
recen como distintas gradaciones de verde. Si usted adquirió el sistema con el monitor 
GT65, en cualquier momento puede comprar la unidad modulador/fuente de alimenta- 
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ción MP2, con la que podrá disfrutar de los colores del ordenador conectándolo a un 
televisor doméstico. 

En modo 0 se puede visualizar simultáneamente 16 de los 27 colores disponibles. 

En modo 1 se puede visualizar simultáneamente 4 de los 27 colores. 

En modo 2 se puede visualizar simultáneamente 2 de los 27 colores. 

Se puede controlar los colores del borde, del papel (fondo) y de la pluma (trazo) inde¬ 
pendientemente unos de otros. 

Los 27 colores disponibles son los relacionados en la tabla 1, en la que incluimos tam¬ 
bién los números de referencia para la instrucción INK (tinta). 

Para mayor comodidad, esta tabla aparece también en la carcasa del ordenador, al lado 
derecho. 


Número 

de tinta Color 

Número 

de tinta Color 

Número 

de tinta Color 

0 Negro 

1 Azul 

2 Azul intenso 

3 Rojo 

4 Magenta 

5 Malva 

6 Rojo intenso 

7 Morado 

8 Magenta intenso 

9 Verde 

10 Cyan 

11 Azul celeste 

12 Amarillo 

13 Blanco 

14 Azul pastel 

15 Anaranjado 

16 Rosado 

17 Magenta pastel 

18 Verde intenso 

19 Verde mar 

20 Cyan intenso 

21 Verde lima 

22 Verde pastel 

23 Cyan pastel 

24 Amarillo intenso 

25 Amarillo pastel 

26 Blanco intenso 


Tabla 1. Números de tinta y colores asociados. 


Como hemos dicho, el ordenador se pone automáticamente en modo 1 al encenderlo. 
Para volver a modo 1 estando en cualquier otro, basta con escribir: 


tnode 1 CRETURN3 


La pantalla 

El borde (BORDER) es el área que rodea el papel (PAPER). (Cuando se enciende el 
ordenador, el borde y el papel son ambos azules.) Los caracteres que escribimos en la 
pantalla sólo puede estar en la región interior al borde. El papel es el fondo sobre el 
que la pluma (PEN) escribe los caracteres. 
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PEN 


BORDER 

PAPER 


Vamos a explicar cómo se realiza la selección de los colores. 

Cuando se enciende o reinicializa el ordenador, éste selecciona automáticamente el co¬ 
lor número 1 para el borde. Como puede comprobar en la tabla 1, el color número 1 
es el azul. El color del borde se puede cambiar mediante la orden BORDER seguida 
del número del color deseado. Por ejemplo, escriba: 

border 13 IRETURN] 

Esto es fácil, pero en el interior de la pantalla las cosas son algo más complicadas: 

Cuando se enciende o reinicializa la máquina, el número de papel seleccionado automá- 
ticamene es el 0, y el de la pluma es el 1. Esto no quiere decir que los colores correspon¬ 
dientes sean los que figuran en la tabla anterior con los números 0 y 1. 

Lo que ocurre es que el 0 y el 1 son números de papel y de pluma, no números de tinta. 
Vamos a explicarnos. Supongamos que tenemos en nuestra mesa cuatro plumas, nume¬ 
radas del 0 al 3, y 27 tinteros, numerados del 0 al 26. Es evidente que cuando decimos 
‘pluma número 1 ’ no necesariamente estamos refiriéndonos al color número 1. La plu¬ 
ma número 1 puede estar cargada con tinta de cualquier color; de hecho, podemos te¬ 
ner las cuatro plumas cargadas con la misma tinta. 

Pues bien, algo similar ocurre en el ordenador. Con la instrucción PEN (pluma) pode¬ 
mos elegir la pluma con la que vamos a escribir; la instrucción INK (tinta) nos permite 
‘cargar’ esa pluma con tinta del color deseado. 

Recordando que estamos en modo 1 (40 columnas), consulte la tabla 2 y comprobará 
que la pluma número 1 está cargada inicialmente con tinta de color 24. Pero el color 
24 es, como podemos ver en la tabla 1, amarillo intenso: el color con que se escriben 
los caracteres cuando acabamos de encender el ordenador. 
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Número de 
papel/pluma 

Color de tinta 
Modo 0 

Color de tinta 
Modo 1 

Color de tinta 
Modo 2 

0 

1 

1 

1 

1 

24 

24 

24 

2 

20 

20 

1 

3 

6 

6 

24 

4 

26 

1 

1 

5 

0 

24 

24 

6 

2 

20 

1 

7 

8 

6 

24 

8 

10 

1 

1 

9 

12 

24 

24 

10 

14 

20 

1 

11 

16 

6 

24 

12 

18 

1 

1 

13 

22 

24 

24 

14 

Parpadeo 1,24 

20 

1 

15 

Parpadeo 16,11 

6 

24 


Tabla 2. Asignación inicial de tintas a los papeles y las plumas. 


Las relaciones entre papel, pluma y tinta no son fijas. Los valores que se muestran en 
la tabla 2 son los seleccionados automáticamente en el momento de encender la máqui¬ 
na. Se los puede cambiar mediante la instrucción INK (tinta). Esta instrucción va segui¬ 
da de dos números (parámetros). El primero es el número de papel o de pluma que va¬ 
mos a cargar; el segundo es el color con que vamos a cargarlo. Los parámetros van 
separados por una coma. 

Puesto que estamos utilizando la pluma número 1, vamos a cambiar el color de tinta 
correspondiente: la cargaremos con tinta de color anaranjado. Escriba: 

ink 1,15 [RETURNJ 

Los caracteres han cambiado instantáneamente de color. 

También vamos a cambiar el color del fondo mediante la instrucción INK. Sabemos 
que el número de papel seleccionado al encender la máquina es el 0; vamos a cambiar 
el color a verde (color número 9) escribiendo: 

ink 0,9 [RETURN] 

Ahora vamos a cambiar de pluma. Escriba: 

pen 3 [RETURNJ 
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El color de los caracteres ya escritos no ha cambiado. Esta instrucción afecta solamente 
a los que escribamos a continuación. En este momento estamos utilizando la pluma nú¬ 
mero 3. Como puede comprobar en las tablas 1 y 2, la tinta con que esta pluma está 
cargada inicialmente es la de color número 6 (rojo intenso). Para cambiarla a rosado 
escriba: 

ink 3,16 [RETURN3 

Recuerde que el 3 es el color de la pluma (seleccionado con la anterior instrucción pen 3) 
y que el 16 es el color de la tinta con que la cargamos (rosado). 

Cambiemos ahora de papel. Cuando lo hagamos, el anterior color de fondo no cambia¬ 
rá, porque ese color ha sido impreso con otro papel. Escriba lo siguiente: 

paper 2 1RETURN3 

Consultando nuevamente las tablas 1 y 2, compruebe que el color inicialmente asigna¬ 
do al papel número 2 es cyan intenso. Cámbielo a negro escribiendo: 

ink 2,0 [RETURN3 

En este momento, en la pantalla tenemos caracteres escritos por las plumas 1 y 3, sobre 
fondos de papel números 0 y 2. También se puede cambiar el color de la tinta de una 
pluma o de un papel que no estén siendo utilizados. Por ejemplo, escriba la orden: 

ink 1,2 tRETURN3 

que cambia el color de todos los caracteres que habíamos escrito antes con la pluma 
número 1. 

Escriba: 

cls tRETURN3 

para borrar la pantalla. 

El lector ya debería ser capaz de hacer que el ordenador vuelva a los colores iniciales 
(borde y fondo azul y caracteres amarillos) utilizando las instrucciones BORDER, 
PAPER, PEN e INK. Inténtelo. Si no lo consigue, reiniciaJice el ordenador con 

[CONTROL] [MAYS] [ESC], 


Colores parpadeantes 

Es posible hacer que una tinta cambie intermitentemente de color. Para ello se debe 
añadir otro número a la instrucción INK que asigna tintas a la pluma utilizada. 
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Vamos a hacer que los caracteres que escribamos alternen entre los colores blanco in¬ 
tenso y rojo intenso. Reinicialice la máquina con [CONTROL] [MAYS] [ESC] y escri¬ 
ba lo siguiente: 

ink 1,26,6 CRETURN] 

En este caso el 1 es el número de la pluma, el 26 es el del color blanco intenso y el 6 
es el del segundo color, rojo intenso. 

El mismo efecto de parpadeo se puede dar a los colores del fondo, para lo cual se añade 
un segundo número de color a la instrucción INK que asigna tintas al papel actual. Para 
hacer que el color del fondo alterne entre verde y amarillo intenso escriba: 

ink 0,9,24 CRETURN] 

En este caso 0 es el número del papel, 9 es el número del color verde y 24 es el número 
eí segundo color, el amarillo intenso. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

Observe en la tabla 2 que en modo 0 hay dos números de pluma y dos números de pa¬ 
pel, el 14 y el 15, que tienen asignadas tintas parpadeantes. Es decir, sus correspondien¬ 
tes tintas están preprogramadas con un color adicional. 

Escriba lo siguiente: 

mode 0 CRETURN] 
pen 15 CRETURN] 

y verá en la pantalla la palabra Ready parpadeando entre azul celeste y rosado. Escriba 
ahora: 

papen 14 CRETURN] 
cls 

El texto continúa parpadeando como antes, pero además el fondo ha empezado a alter¬ 
nar entre los colores amarillo y azul. 

Los números de pluma y de papel 14 y 15 pueden ser reprogramados, mediante la ade¬ 
cuada instrucción INK, para que parpadeen con otras tintas o bien para asignarles un 
color fijo. 

Finalmente, se puede hacer parpadear el borde sin más que especificar un segundo nú¬ 
mero de color en la instrucción BORDER. Escriba: 

bor-der 6,9 CRETURN] 

El borde está parpadeando entre los colores rojo intenso y verde. Observe que al borde 
se le puede asignar uno o dos colores cualesquiera de los 27 disponibles, independiente¬ 
mente del modo en que esté la pantalla (0, 1 o 2). 
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Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

Introduzca y ejecute el siguiente programa, que demuestra los colores disponibles. 

10 MODE 0 tRETURN! 

20 velocidad=600: REM establece velocidad del 
programa tRETURN! 

30 FOR b=0 TO 26 tRETURN! 

40 LOCATE 1,12 tRETURN! 

50 BORDER b tRETURN! 

60 PR1NT "color del borde:"5b tRETURN! 

70 FOR t=l TO velocidad tRETURN! 

80 NEXT t,b tRETURN] 

90 CLG tRETURN! 

100 FOR p=0 TO 15 tRETURN! 

110 PAPER p tRETURN! 

120 PRINT "papel:"5p tRETURN! 

130 FOR n=0 TO 15 tRETURN! 

140 PEN n tRETURN! 

150 PRINT "pluma:"5n tRETURN! 

160 NEXT n tRETURN! 

170 FOR t=l TO velocidad*2 tRETURN! 

180 NEXT t,p tRETURN! 

190 MODE 1 tRETURN! 

200 BORDER 1 tRETURN! 

210 PAPER 0 tRETURN! 

220 PEN 1 tRETURN! 

230 INK 0,1 tRETURN! 

240 INK 1,24 tRETURN! 
run tRETURN! 


OBSERVACIÓN MUY IMPORTANTE 

En este programa, así como en otros capítulos y listados de este manual, las palabras 
clave de BASIC aparecen en mayúsculas, pues el ordenador convierte automáticamen¬ 
te minúsculas a mayúsculas cuando se le pide que haga un listado del programa (con 
LIST). En general, es preferible escribir las instrucciones en minúsculas; esto ayudará 
más tarde a detectar errores, ya que las palabras clave de BASIC que contengan algún 
error no serán convertidas a mayúsculas. 

En lo que resta de este ‘Curso de introducción’ daremos los listados indistintamente 
en mayúsculas y minúsculas, para que usted se familiarice con esta característica de 
BASIC. 

Los nombres de las variables, tales como x o a$, no son convertidos a mayúsculas al 
listar el programa. Sin embargo, el ordenador reconoce las variables tanto si están en 
mayúsculas como si están en minúsculas; de hecho, para el ordenador x es la misma 
variable que X. 
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Atención 

A partir de ahora no vamos a seguir recordándole que debe pulsar [RETURN] al 
terminar de escribir cada línea de programa y cada orden directa, pues suponemos 
que usted ya está suficientemente habituado a hacerlo. 


Gráficos 

En la memoria del ordenador está pregrabado el diseño de cierto número de caracteres. 
Para escribirlos en la pantalla necesitamos la palabra clave: 

chr$( ) 

Dentro de los paréntesis se pone el número del carácter, que debe estar en el margen 
de 32 a 255. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y escriba lo siguiente: 
print chr$(250) 

No olvide pulsar [RETURN], En la pantalla ha aparecido el carácter número 250, que 
es la figura de un hombre caminando hacia la derecha. 

Para ver todos los caracteres y símbolos, junto con su número correspondiente, intro¬ 
duzca y ejecute el siguiente programa (recuerde que debe pulsar [RETURN] al final de 
cada línea): 

10 íor n=32 to 255 
20 print n¡chr$(n)¡ 

30 next n 
run 

Todos estos caracteres y números figuran en el capítulo ‘Para su referencia ...’. 


LOCATE 

Esta instrucción sirve para colocar el cursor en un lugar especificado de la pantalla. 
A menos que se lo mueva con una instrucción LOCATE, el punto de partida del cursor 
es el extremo superior izquierdo de la pantalla, punto de coordenadas 1,1 (en el sistema 
de coordenadas x, y, donde x es la posición horizontal e y es la vertical). En modo 1 
hay 40 columnas y 25 filas (o líneas). Así, para colocar el cursor en el centro de la pri¬ 
mera línea, tendremos que utilizar 20,1 como coordenadas x, y. 
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Teclee lo siguiente (sin olvidar pulsar [RETURN] al final de cada línea): 

tnode 1 ... borra la pantalla y lleva el cursor al extreio superior izquierdo 

10 lócate 20,1 
20 print chr*(250) 
run 


Para comprobar que el carácter está en la primera línea, cambiemos el color del borde: 
border 0 

El borde es ahora negro y podemos ver que el hombrecillo está en el centro de la línea 
superior. 

En modo 0 sólo hay 20 columnas, pero las mismas 25 líneas. Si ahora escribe: 

mode 0 
run 

verá que el hombre se ha ido al extremo superior derecho de la pantalla. Esto ha ocurri¬ 
do porque la coordenada x = 20 es la última columna en modo 0. Escriba: 

mode 2 
run 

Vuelva a modo 1 con: 
mode 1 

Ahora pruebe usted con diferentes posiciones en lócate y diferentes números en 
chr$( ). Por ejemplo, escriba: 

lócate 20,12:print chr*<240> 

y verá una flecha en el centro de la pantalla. Observe que en esta instrucción: 

20 es la coordenada x (horizontal) (margen: 1 a 40) 

12 es la coordenada y (vertical) (margen: 1 a 25) 

240 es el número del carácter (margen: 32 a 255) 
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Para mover el carácter 250 de izquierda a derecha de la pantalla, escriba lo siguiente: 


10 CLS 

20 FOR x = l TO 39 
30 LOCATE x ,20 
50 PRINT CHR*(250) 
60 NEXT x 
70 GOTO 10 
run 


Pulse [ESC] dos veces para abandonar el programa. 

Si queremos borrar el carácter recién escrito antes de escribir el siguiente, debemos 
hacer 


50 print " “;chr*(250) 

(Esta nueva línea 50 reemplaza automáticamente la que teníamos antes.) Escriba: 
run 


FRAME 

Para mejorar la ilusión de movimiento del carácter por la pantalla, añada al programa 
anterior la siguiente línea: 

40 Trame 


La instrucción FRAME sincroniza el movimiento de objetos por la pantalla con la fre¬ 
cuencia a la que se envían las imágenes al monitor. La explicación es demasiado técni¬ 
ca, pero basta con que recordemos que esta instrucción se debe utilizar siempre que 
queramos mover objetos suavemente por la pantalla. 

Este programa se puede mejorar introduciendo pausas y utilizando un símbolo distinto 
para el retroceso. 

Escriba: 

1 ist 
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y añada las siguientes líneas: 

70 FOR n=l TO 300:NEXT n 
80 FOR x = 39 TO 1 STEP -1 
90 LOCATE x,20 
100 FRAME 

110 PRINT CHR$(251) i “ " 
120 NEXT x 

130 FOR n=i TO 300:NEXT n 

140 GOTO 20 

run 


PLOT 

La instrucción PLOT es análoga a LOCATE, pero controla la posición del cursor gráfi¬ 
co y utiliza un sistema de coordenadas distinto, en el que las distancias se miden en 
pixels (un pixel, o punto gráfico, es la mínima área de la pantalla controlable 
individualmente). 

El cursor gráfico es invisible, y distinto en todos los aspectos del cursor de texto. 

La pantalla se divide en 640 puntos en horizontal por 400 en vertical. Las coordenadas 
x, y se toman con respecto al extremo inferior izquierdo de la pantalla, que es el punto 
de coordenadas 0,0. A diferencia de lo que ocurría con LOCATE, las coordenadas de 
este sistema no dependen del modo de pantalla (0, 1 o 2). 

Para comprobarlo, reinicialice la máquina con [CONTROL] [MAYS] [ESC] y escriba: 
plot 320,200 

Observe el punto que ha aparecido en el centro de la pantalla. 

Hagamos lo mismo en modo 0: 

mode 0 

plot 320,200 

El punto sigue estando en el centro de la pantalla, pero es más grande. Para ver el efec¬ 
to en modo 2 escriba: 

mode 2 

plot 320,200 

Como era de esperar, el punto sigue centrado, pero es mucho más pequeño. 
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Dibuje unos cuantos puntos en diversos lugares de la pantalla y en modos distintos para 
familiarizarse con esta instrucción. Cuando haya terminado, escriba: 

mode 1 

para volver a modo 1 y borrar la pantalla. 


DRAW 

Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. La instrucción DRAW dibu¬ 
ja una recta a partir de la posición actual del cursor gráfico. Para verla en acción, dibu¬ 
je un rectángulo con el siguiente programa: 

5 c 1 s 

10 plot 10,10 
20 draw 10,390 
30 draw 630,390 
40 draw 630,10 
50 draw 10,10 
60 goto 60 
run 

En la línea 10 la instrucción PLOT coloca el cursor en el punto de partida deseado. A 
continuación, las instrucciones DRAW van dibujando segmentos de recta: hacia arri¬ 
ba, hacia la derecha, etc. 

Pulse [ESC] dos veces para abandonar el programa. 

(Observe la línea 60 de este programa. Esta línea establece un bucle infinito, del que 
sólo se sale deteniendo el programa. Una instrucción de este tipo es útil cuando se quie¬ 
re evitar que el ordenador exhiba el mensaje Ready al terminar el programa.) 

Añada al programa las siguientes líneas, las cuales dibujan un segundo rectángulo den¬ 
tro del anterior: 

60 plot 20,20 
70 draw 20,380 
80 draw 620,380 
90 draw 620,20 
100 draw 20,20 
110 goto 110 
ruri 

Pulse [ESC] dos veces para detener el programa. 
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MOVE 


Esta instrucción funciona igual que PLOT en cuanto a llevar el cursor gráfico a la posi¬ 
ción especificada, pero no dibuja el punto. 

Escriba: 

cls 

move 639,399 

Aunque no podamos verlo, hemos llevado el cursor al extremo superior derecho de la 
pantalla. 

Para demostrarlo, vamos a dibujar una recta desde ese punto hasta el centro de la pan¬ 
talla. Escriba: 

draw 320,200 


Circunferencias 


Las circunferencias se pueden dibujar punto a punto o con trazo continuo. Una forma 
de dibujar una circunferencia consiste en dibujar puntos en las posiciones correctas. 
En la figura siguiente se ilustra cómo se calculan las coordenadas x, y de un punto p 
de la circunferencia. Las fórmulas son: 

x=190#cos(a) 
y=190*sin(a) 
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Dibujo de una circunferencia 

En los programas anteriores hemos referido todos los dibujos al extremo inferior iz¬ 
quierdo de la pantalla. Si queremos que nuestra circunferencia quede centrada en la 
pantalla, debemos situar su centro en el punto de coordenadas 320,200, y luego sumar 
a estos valores los dados por las fórmulas anteriores. 

El siguiente programa dibuja punto a punto una circunferencia: 

new 

10 CLS 
20 DEG 

30 FOR a=l TO 360 
40 MOVE 320,200 

50 PLOT 320+190*COS(a),200+190*SIN(a) 

60 NEXT 
run 


Observe que hemos dado la orden NEW antes de introducir el programa. Esta orden 
hace que el ordenador borre el programa que en ese momento tenga en la memoria (de 
forma similar a lo que ocurre cuando se pulsa [CONTROL] [MAYS] [ESC]). Sin em¬ 
bargo, la pantalla no se borra. 

El radio de la circunferencia se puede reducir poniendo en lugar de 190 un número me¬ 
nor de pixels. 

Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la lí¬ 
nea 20 escribiendo: 

20 


En lugar de punto a punto, podemos dibujar la circunferencia con trazo continuo. Mo¬ 
difique la línea 50 para poner draw en lugar de plot. La línea será entonces: 

50 draw 320+190*cos(a),200+190*sin(a) 

Pruebe esta modificación con la línea 20 y sin ella. 

Observe que en la línea 60 de este programa hemos puesto NEXT en lugar de NEXT a. 
En efecto, se puede omitir el nombre de la variable, pues el ordenador se encarga de 
averiguar a qué FOR corresponde cada NEXT. No obstante, en los programas en los 
que haya muchos bucles FOR ... NEXT, puede ser conveniente poner los nombres de 
las variables después de NEXT para que el programa sea más inteligible cuando se lo 
esté corrigiendo o estudiando. 
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ORIGIN 


En el programa anterior utilizábamos la instrucción MOVE para establecer el centro 
de la circunferencia y luego sumábamos a las coordenadas del centro las coordenadas 
de los puntos de la circunferencia. Podemos evitar esas sumas si redefinimos la posi¬ 
ción del origen de coordenadas con la instrucción ORIGIN. El ordenador entenderá las 
coordenadas que se le suministren a continuación como referidas al nuevo origen. Es¬ 
criba lo siguiente: 

new 
10 cls 

20 for a=l to 360 
30 origin 320,200 
40 plot 190*cos(a>,190*sin(a> 

50 next 
run 

El siguiente programa dibuja cuatro circunferencias más pequeñas: 
new 

10 CLS 

20 FOR a=l TO 360 
30 ORIGIN 196,282 
40 PLOT 50*COS(a),50*SIN(a) 

50 ORIGIN 442,282 

60 PLOT 50*COS(a),50*SIN(a) 

70 ORIGIN 196,116 

80 PLOT 50*COS(a),50*SIN(a) 

90 ORIGIN 442,116 

100 PLOT 50*COS(a),50*SIN(a) 

110 NEXT 
run 


Otra formá de dibujar la circunferencia (con trazo continuo) es la siguiente: 


new 

10 MODE 1 
20 ORIGIN 320,200 
30 DEG 

40 MOVE 0,190 

50 FOR a=0 TO 360 STEP 10 

60 DRAW 190*SIN(a),190*COS<a) 

70 NEXT 

run 
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En este caso se van dibujando pequeños segmentos de recta, de un punto al siguiente 
de la circunferencia. Este método es mucho más rápido que el de dibujo punto a punto. 

Observe una vez más el efecto de la instrucción DEG: suprima la línea 30 y ejecute el 
programa. 


FILL 

La instrucción FILL (rellenar) se utiliza para rellenar una región de la pantalla que esté 
delimitada por gráficos o por los bordes de la pantalla. 

Reinicialice la máquina con [CONTROL] [MAYS] [ESC] y luego escriba: 


new 

10 cls 
20 move 
30 draw 
40 draw 
50 draw 
run 


20,20 

620,20 

310,380 

20,20 


En la pantalla ha aparecido un triángulo. Lleve el cursor gráfico al centro de la pantalla 
con la orden 

mode 320,200 


Vamos a utilizar la instrucción FILL seguida de un número de pluma, por ejemplo el 
3, para rellenar con la tinta de la pluma especificada el recinto cerrado en que se en¬ 
cuentra el cursor. Escriba lo siguiente: 

■f i 11 3 

Lleve el cursor al exterior del triángulo con la orden 
move 0,0 

Observe qué ocurre cuando escriba: 

-F i 11 2 

El ordenador ha usado la pluma número 2 para rellenar la zona delimitada por el dibu¬ 
jo y los bordes de la pantalla. 
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Modifique ahora el programa escribiendo la líneas siguientes y vea qué ocurre: 

50 draw 50,50 
60 move 320,200 
70 -f i 11 3 
run 

La tinta ‘rezuma’ por la ranuras. 

Veámoslo con otro ejemplo. Rellenemos una circunferencia dibujada punto a punto: 


new 

10 CLS 

20 FOR a=l TO 360 
30 ORIGIN 320,200 
40 PLOT 190*COS(a),190*SIN<a> 

50 NEXT 

60 MOVE -188,0 
70 FILL 3 
run 

Pruebe ahora con: 
new 

10 MODE 1 
20 ORIGIN 320,200 
30 DEG 

40 MOVE .0,190 

50 FOR d=0 TO 360 STEP 10 

60 DRAW 190#SIN(d),190#COS<d) 

70 NEXT 

80 MOVE -188,0 
90 FILL 3 
run 

Para hacer que el borde del círculo sea invisible, dibujamos la circunferencia con tinta 
del mismo color que la del papel. Añada la siguiente línea: 

45 GRAPHICS PEN 2:INK 2,1 
run 

La instrucción GRAPHICS PEN selecciona la pluma que haya de ser utilizada para 
dibujar gráficos. La instrucción INK especifica el color de tinta para esa pluma, que 
en este caso coincide con el color del papel (color número 1). 
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Finalmente, introduzca y pruebe el siguiente programa: 


new 

10 MODE 0:BORDER 13 
20 MOVE 0,200:DRAW 640,200 
30 FOR x=80 TO 560 STEP 80 
40 MOVE x,0:DRAW x,400 
50 NEXT:MOVE -40,300 
60 FOR c=0 TO 7 
70 MOVER 80,0:FILL c 
80 MOVER 0,-200:FILL c+8 
90 MOVER 0,200:NEXT 
100 GOTO 100 
r un 

También se puede cambiar los colores de las zonas rellenadas: 

100 SPEED INK 30,30 
110 BORDER RND*26,RND*26 
120 INK RND*15,RND*2Ó,RND*26 
130 FOR t=l TO 500:NEXT:GOTO 110 
r un 


Otros detalles ... 


En la sección ‘Dicho gráficamente’, del capítulo titulado ‘Cuando usted guste da¬ 
remos una explicación más detallada de los gráficos del CPC6128. 

Para concluir esta sección, le ofrecemos unos programas de demostración de gráficos 
que incorporan muchas instrucciones que el lector ya debería entender. Todos ellos di¬ 
bujan figuras en la pantalla continuamente. 

10 BORDER 0:GRAPHICS PEN 1 

20 m=CINT(RND*2):MODE m 

30 ii=RND*26:i2=RND*26 

40 IF ABS(i i-i 2)<10 THEN 30 

50 INK 0,il: INK 1,i2 

60 s=RND*5+3:ORIGIN 320,-100 

70 FOR x=-1000 TO 0 STEP s 

80 MOVE 0,0:DRAW x,300:DRAW 0,600 

90 MOVE 0,0:DRAW -x,300:DRAW 0,600 

100 NEXT:FOR t=l TO 2000:NEXT:GOTO 20 

run 
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10 MODE 1:BORDER 0:PAPER 0 

20 GRAPHICS PEN 2:INK 0,0:i=14 

30 EVERY 2200 GOSUB 150 

40 indicador=0:CLG 

50 INK 2,14+RND412 

60 b%=RND*5+l 

70 c%=RND*5+l 

80 ORIGIN 320,200 

90 FOR a=0 TO 1000 STEP PI/30 

100 x%=100*COS(a) 

110 MOVE x%,y% 

120 DRAW 200*COS(a/b%),200*SIN(a/c%) 
130 IF indicador=l THEN 40 
140 NEXT 

150 indicador=l:RETURN 
run 


10 MODE l:BORDER 0:DEG 
20 PRINT "Por -favor, espere" 

30 FOR n = l to 3 

40 INK 0,0:INK 1,26:INK 2,6:INK 3,18 
50 IF n = l THEN sa=120 
60 IF n=2 THEN sa=135 
70 IF n=3 THEN sa=150 

80 IF n=l THEN ORIGIN 0,-50,0,640,0,400 ELSE 
ORIGIN 0,0,0,640,0,400 
90 DIM cx<5),cy(5),r(5),lc<5) 

100 DIM np(5) 

110 DIM px%(5,81),py%(5,81) 

120 st = l:ex(1)=320:cy(1)=200:r(1)=80 

130 FOR st=l TO 4 

140 r(st+1)=r(st)/2 

150 NEXT st 

160 FOR st=l TO 5 

170 1c(st)=0:np(st)=0 

180 np(st)-np(st)+1 

190 px%(st,np(st))=r(st)*SIN(lc(st)) 

200 py%(st,np(st))=r(st)*COS(le(st)) 

210 lc(st)=lc(st)+360/r(st) 

220 IF 1c(st)<360 THEN 180 
230 px%(st,np(st)+1)=px%(st,1) 

240 py%(st,np(st)+1)=py%(st,1) 

250 NEXT st 

260 CLS:cj =REMAIN(1):cj=REMAIN(2) 

270 cj=REMAIN(3):INK l,2:st=l 
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280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 


GOSUB 350 
LOCATE 1,1 

EVERY 25,1 GOSUB 510 

EVERY 15,2 GOSUB 550 

EVERY 5,3 GOSUB 590 

ERASE ex,cy,r,lc,np,px%,py%:NEXT 

GOTO 340 

cx%=cx(st):cy%=cy(st):lc(st)=0 
FOR x%=l TO np(st) 

MOVE cx%,cy% 

DRAW cx%+px%<st,x%),cy%+py%(st,x%),1+(st MOD 
DRAM cx%+px%(st,x%+l),cy%+py%(st,x%+l),1+(st 
MOD 3) 

NEXT x% 

IF st=5 THEN RETURN 
le(st)=0 

ex(st + l)=cx(st)+1.5*r <5t)*SIN<sa+lc(st)) 

cy(st+1)=cy(st)+1.5#r(st)*COS(sa+le(st)) 

st=st+l 

GOSUB 350 

st—st“1 


lc(st)=lc(st)+2*sa 


IF (lc(st) MOD 
RETURN 

ik(l)=l+RND*25 
IF ik(1)=ik(2) 
INK 1,ik(l) 
RETURN 

ik(2)=l+RND*25 
IF ik(2)=ik <1) 
INK 2,ik(2) 
RETURN 

ik(3)=1+RND*25 
IF ik(3)=ik (1) 
INK 3,ik(3) 
RETURN 


360)00 THEN 430 

OR ik(1)=ik(3) THEN 510 

OR ik(2)=ik(3) THEN 550 

OR ik(3)=ik(2) THEN 590 


3) 
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Parte 9: Sonidos 


El ordenador emite su sonido a través del altavoz que tiene incorporado. Si está utili¬ 
zando la unidad modulador/fuente de alimentación MP2 y un televisor doméstico, baje 
el mando de volumen del televisor al mínimo. 

El nivel de sonido se ajusta con el mando VOLUMEN que hay en el panel posterior 
del ordenador. También es posible enviar el sonido a un amplificador externo, por me¬ 
dio de la salida marcada con ESTEREO en el ordenador. De esta forma se puede oír 
el sonido en estereofonía, utilizando los altavoces o los auriculares de un equipo de alta 
fidelidad. En la parte 2 de este ‘Curso de introducción’ se explica cómo tomar las seña¬ 
les de la salida ESTEREO del ordenador. 


La instrucción SOUND 

La instrucción SOUND tiene siete parámetros. Los dos primeros son imprescindibles, 
mientras que los restantes son opcionales. La forma de la instrucción es la siguiente: 

SOUND tsituacion ie caniles), tperioio le tono), tluracion), (volnoen), 

<envolvente le voluien),{envolvente le tono), tperioio le ruilo) 

Parece complicada a primera vista, pero veremos que en realidad no lo es tanto cuando 
hayamos analizado el significado de todos los parámetros. Así pues, estudiemos los pa¬ 
rámetros uno por uno. 


Situación de los canales 

Para no complicar las cosas, por ahora nos limitaremos a considerar este parámetro 
como simple selector de canales. Hay tres canales de sonido; de momento sólo utilizare¬ 
mos el número 1. 

Periodo de tono 

El periodo de tono es la forma técnica de especificar el tono del sonido; en otras pala¬ 
bras, de identificar la nota (DO, RE, MI, FA, etc.). Cada nota tiene un número de 
identificación, que es el periodo de tono. Si consulta el capítulo ‘Para su referen¬ 
cia..comprobará que la nota DO media tiene un periodo de tono de 239. 
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Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y luego escriba: 

10 sound 1,239 
run 

Acaba de oír la nota DO media, que ha sonado durante 0.2 segundos. 

¿No ha oído nada? Suba el control de volumen del ordenador y vuelva a ejecutar el 
programa. 


Duración 


Este parámetro especifica la duración del sonido. Las unidades son de centésimas de 
segundo (0.01 s). Si no se especifica duración, el ordenador toma el valor implícito para 
este parámetro, que es 20 ; por eso la nota que acaba de oír ha durado 0.01 x20=0.2 
segundos. 

Si queremos que la nota dure 1 segundo, el valor del parámetro tendrá que ser 100 ; 
para dos segundos, 200 ; etc. Escriba lo siguiente: 

10 sound 1,239,200 
r u n 

Acaba de oír la nota DO media con duración de 2 segundos. 


Volumen 

Este parámetro especifica el volumen de la nota. El margen de valores va de 0 a 15 . 
El volumen 0 es el mínimo; el 15 es el máximo. Si no se especifica ningún valor, el 
ordenador toma el implícito, que es 12 . Escriba lo siguiente: 

10 sound 1,239,200,5 
run 

Fíjese en el volumen de este sonido y compárelo con el siguiente: 

10 sound 1,239,200,15 
run 

Como puede observar, es mucho más intenso que el anterior. 
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Envolvente de volumen 


Se puede hacer que el volumen de una nota no sea constante, sino que varíe con el tiem¬ 
po mientras la nota está sonando. Para especificar la forma de variación del volumen 
en función del tiempo necesitamos otra instrucción: ENV. De hecho, podemos definir 
varias envolventes de volumen distintas, cada una de las cuales tendrá su número de 
referencia. Así, si hemos definido la envolvente de volumen número 1, podemos utili¬ 
zarla poniendo en la instrucción SOUND el número 1 como parámetro de envolvente 
de volumen. En seguida explicaremos cómo se definen las envolventes de volumen. 


Envolvente de tono 

Se puede hacer que el tono de una nota no sea constante, sino que varíe con el tiempo 
mientras la nota está sonando. Para especificar la forma de variación del tono en fun¬ 
ción del tiempo necesitamos otra instrucción: ENT. De hecho, podemos definir varias 
envolventes de tono distintas, cada una de las cuales tendrá su número de referencia. 
Así, si hemos definido la envolvente de tono número 1, podemos utilizarla poniendo 
en la instrucción SOUND el número 1 como parámetro de envolvente de tono. En se¬ 
guida explicaremos cómo se definen las envolventes de tono. 


Ruido 

El periodo de ruido es el último parámetro de la instrucción SOUND. Las característi¬ 
cas del ruido se pueden variar eligiendo para este parámetro un valor comprendido en¬ 
tre 1 y 31. Ponga el valor 2 en la instrucción SOUND y escuche el efecto. Ponga luego 
el número 27 y observe la diferencia. Escriba: 

10 sound 1,239,2.00, 15, , , 2 

En esta instrucción hemos dejado en blanco dos parámetros (,,,) porque aún no hemos 
creado ninguna envolvente de volumen ni de tono. 


Definición de una envolvente de volumen 

La instrucción que define envolventes de volumen es ENV. En su versión más sencilla, 
esta instrucción lleva 4 parámetros. Su forma es la siguiente: 

ENV (nuoero de envolvente), (nuiero de escalones), (altura de cada escalón), 

(duración de cada escalón) 

Estudiemos los parámetros uno por uno. 
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Número de la envolvente 


Es el número de referencia (entre 0 y 15) por el que la invocaremos en la instrucción 

SOUND. 


Número de escalones 

Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de 
terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 
etapas de 1 segundo cada una; en tal caso, el parámetro ‘número de escalones’ tendría 
el valor 10. 

El margen de este parámetro es de 0 a 127. 


Altura de cada escalón 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un número 
de unidades comprendido en 0 y 15. Estos 16 niveles de sonido son los mismos que se 
definen en la instrucción SOUND. Sin embargo, el margen del parámetro ‘altura de 
escalón’ es de —128 a +127; el nivel del volumen vuelve a 0 cada vez que sobrepasa 
el 15. 


Duración de cada escalón 

Este parámetro especifica la duración de cada escalón en unidades de centésimas de se¬ 
gundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de 
cada escalón es de 2.56 segundos (el 0 se considera como 256). 

Por consiguiente, el producto del parámetro ‘número de escalones’ por el parámetro 
‘duración de cada escalón’ no debería ser mayor que el parámetro ‘duración’ especifi¬ 
cado en la instrucción SOUND. De lo contrario, el sonido terminará antes de que se 
hayan completado todos los escalones de la envolvente. (En ese caso el ordendor ignora 
el resto del contenido de la envolvente.) 

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
el producto de ‘número de escalones’ por ‘duración de cada escalón’, la nota continua¬ 
rá sonando aunque se hayan terminado los escalones de la envolvente de volumen, y 
lo hará al nivel del último escalón de la envolvente. 

Para practicar con las envolventes de volumen, pruebe el siguiente programa: 

10 env 1,10,1,100 

20 sound 1,142,1000,1,1 

run 
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La línea 20 especifica un sonido con número de tono igual a 142 (LA internacional), 
duración de 10 segundos, volumen inicial igual a 1 y envolvente de tono número 1, la 
cual consiste en 10 escalones de altura 1 y duración 1 segundo (100x0.01). 


Pruebe las siguientes formas de la línea 10 y trate de escuchar el efecto de las diferentes 
envolventes de volumen: 


10 

env 

1 , 100 , 1,10 

10 

env 

1,100,2,10 

10 

env 

1,100,4,10 

10 

env 

1,50,20,20 

10 

env 

1,50,2,20 

10 

env 

1,50,15,30 


Finalmente, pruebe la siguiente: 

10 env 1,50,2,10 

Observe que el volumen permanece constante durante la segunda mitad de la nota. Esto 
ocurre por que el número de escalones es 50 y la duración de cada uno de ellos es 
0.1 s, con lo que la duración total de la envolvente es de solamente 5 segundos, mientras 
que en la instrucción SOUND se especifica una duración de 10 segundos. 

Haga usted otras pruebas y trate de generar sonidos diferentes. 

Si quiere crear envolventes más complejas, puede repetir los tres últimos parámetros 
de la instrucción ENV para definir otras ‘secciones’ de la envolvente (hasta un máximo 
de 4 secciones). 


Definición de una envolvente de tono 

La instrucción que define envolventes de tono es ENT. En su versión más sencilla, esta 
instrucción lleva 4 parámetros. Su forma es la siguiente: 

ENT (nuiero de envolvente), <nuiero de escalones), (altura de cada escalón), 
tduracion de cada escalón) 

Como siempre, estudiemos los parámetros uno por uno. 


Número de la envolvente 

Es el número de referencia (entre 0 y 15) por el que la invocaremos en la instrucción 

SOUND. 
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Número de escalones 


Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de 
terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 
etapas de 1 segundo cada una; en tal caso, el parámetro ‘número de escalones’ tendría 
el valor 10. 

El margen de este parámetro es de 0 a 239. 


Periodo de tono de cada escalón 

En cada etapa, el tono puede variar con respecto al de la anterior en un número de 
unidades comprendido entre —128 y +127. Las variaciones negativas representan 
aumento del tono (tono más agudo); las variaciones positivas reducen el tono (tono 
más grave). El valor mínimo del período de tono es 0. Téngalo en cuenta cuando pro¬ 
grame envolventes de tono. En el capítulo ‘Para su referencia ... ’ se da la lista comple¬ 
ta de los periodos de tono. 


Duración de cada escalón 

Este parámetro especifica la duración de cada escalón en unidades de centésimas de se¬ 
gundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de 
cada escalón es de 2.56 segundos (el 0 se considera como 256). 

Por consiguiente, el producto del parámetro ‘número de escalones’ por el parámetro 
duración de cada escalón’ no debería ser mayor que el parámetro ‘duración’ especifi¬ 
cado en la instrucción SOUND. De lo contrario, el sonido terminará antes de que se 
hayan completado todos los escalones de la envolvente. (En ese caso el ordenador igno¬ 
ra el resto del contenido de la envolvente.) 

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
el producto de ‘número de escalones’ por ‘duración de cada escalón’, la nota continua¬ 
rá sonando aunque se hayan terminado los escalones de la envolvente de tono, y lo hará 
con el tono correspondiente al de la última etapa de la envolvente. 

Para practicar con las envolventes de tono, pruebe el siguiente programa: 

10 ent 1,100,2,2 

20 sound 1,142,200,15,,1 

run 

La línea 20 especifica un sonido con número de tono igual a 142 (LA internacional), 
duración de 2 segundos, volumen inicial igual a 15 (el máximo), sin envolvente de volu¬ 
men (parámetro en blanco „) y con envolvente de tono número 1. 

En la línea 10 se define la envolvente de tono, la cual consiste en 100 escalones de altura 
2 (reducción del tono) y duración 0.02 segundos (2x0.01). 
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Pruebe las siguientes formas de la línea 10 y trate de escuchar el efecto de las diferentes 
envolventes de tono: 

10 ent 1,100,-2,2 
10 ent 1,10,4,20 
10 ent 1,10,-4,20 

Cambie ahora la instrucción sound y la envolvente de tono escribiendo: 

10 ent 1,2,17,70 
20 sound 1,71,140,15,,! 

30 goto 10 
run 

Pulse [ESC] dos veces para detener el programa. 

Se puede combinar las instrucciones ENV, ENT y SOUND para crear sonidos más 
complejos. Empiece con el siguiente programa: 

10 env 1,100,1,3 
20 ent 1,100,5,3 
30 sound 1,142,300,1,1,1 
run 

Cambie la línea 20 por la siguiente: 

20 ent 1,100,-2,3 
run 

Y finalmente pruebe el siguiente programa: 

10 env 1,100,2,2 
20 ent 1,100,-2,2 
30 sound 1,142,200,1,1,1 
run 

Si quiere crear envolventes más complejas, puede repetir los tres últimos parámetros 
de la instrucción ENT para definir otras ‘secciones’ de la envolvente (hasta un máximo 
de 4 secciones). 

Haga usted mismo otras pruebas. Por ejemplo, incluya ruido en la instrucción SOUND 
y añada más secciones a las envolventes de volumen y de tono. 

En el capítulo ‘Lista completa de las palabras clave del BASIC de AMSTRAD’ explica¬ 
remos con todo detalle las diversas instrucciones de sonido. Si le interesan los aspectos 
más melódicos del sonido, consulte la sección ‘El sonido de la música’ del capítulo titu¬ 
lado ‘Cuando usted guste ...’. 
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Parte 10: Introducción a los sistemas 

operativos AMSDOS y CP/M 

¿Qué es AMSDOS? 

Cuando se enciende o reinicializa el ordenador, éste queda sometido al control de 
AMSDOS. Estas letras son abreviaturas de ‘AMStrad Disc Operating System’ (sistema 
operativo de disco AMSTRAD). AMSDOS dispone de las siguientes funciones e ins¬ 
trucciones de manejo de ficheros: 

LOAD " nombre-f i" 

RUN "nombre-f i" 

SAVE "nombre-f i" 

CHAIN "nombre-f i” 

MERGE "nombre-f i" 

CHAIN MERGE "nombre-f i" 

OPENIN "nombre-f i" 

OPENOUT "nombre-f i" 

CLGSEIN 

CLOSEOUT 

CAT 

EOF 

INPUT #9 
LINE INPUT «9 
LIST #9 
F'RINT #9 
WRITE «9 


así como de diversas órdenes para el manejo de discos. 

Estas órdenes son las llamas órdenes externas, que se escriben precedidas del símbo¬ 
lo ! (tecla @ con [MAYS]). 

Las órdenes externas más utilizadas son las siguientes: 

! ci 

Ib 

¡tape (que se puede subdividir en ¡tape, i n y ¡tape.out) 

¡disc (que se puede subdividir e* ¡disc. i n / ¡disc.out) 

Las órdenes ! a y ¡ b sólo se utilizan cuando se tiene conectada la segunda unidad de 
disco; indican a la máquina con qué unidad debe realizar las órdenes que se le den en 
lo sucesivo. 
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Por ejemplo, las órdenes 
! a 

load "nombre-fi" 

piden al ordenador que cargue el programa especificado leyéndolo del disco que está 
insertado en la unidad A. 

Si no se especifica ! a ni i b, el ordenador opera con la unidad implícita, que es la A. 

Si sólo se está utilizando la unidad integrada en el ordenador, éste la considera como 
unidad A, y no es necesario especificar !a ni Ib. De hecho, si en esa situación se le 
da al ordenador la orden ! b, éste responde con el mensaje: 

Orive B: di se missing Unidad B: falta el disco 

Retry, Ignore or Cancel Reintentar, Ignorar o Cancelar 

y usted debe responder con C (de cancelar). 


¿Cómo se utiliza la cinta? ... 

La orden ! tape indica al ordenador que en lo sucesivo debe realizar todas las funciones 
de manejo de ficheros (load, save, etc.) con el magnetófono de cassette externo en lu¬ 
gar de con el disco. Si no se especifica Itape, el ordenador trabaja con el medio de 
archivo de datos implícito, que es el disco. 

Para volver a trabajar con el disco después de especificar ¡tape, escriba la orden: 

! d i se 

También puede ocurrir que se desee, por ejemplo, leer de la cinta y grabar en disco. 
Para ello sirve la orden. 

!tape, in 

que indica al ordenador que en lo sucesivo debe realizar las operaciones de lectura con 
la cinta, pero seguir realizando las de escritura con el disco. 

Análogamente, para leer datos del disco y grabarlos en cinta, primero se da la orden 
Idisc.in, para cancelar la anterior Itape.in, y luego Itape.out, para dirigir la salida 
de datos hacia la cinta. 

Así pues, Itape.in y Itape.out son opuestas a ¡disc.iny ¡disc.out, respectivamente, 
y viceversa. 

En los capítulos titulados ‘Discos y cintas’ y ‘AMSDOS y CP/M’ se puede encontrar 
más amplia información sobre todas las posibilidades de transferencia de datos entre 
ordenador, disco y cinta. 
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Copia de programas entre discos y cinta 


En la parte 7 de este ‘Curso de introducción’ el lector ha aprendido a inicializar discos 
nuevos sirviéndose del programa DISCKIT3 (cara 1 del juego de discos maestros de 
CP/M), y también a copiar programas de un disco a otro. A la vista de la descripción 
que acabamos de hacer de las órdenes 

i tape idisc i tape. ir. ¡tape.out idisc.in idisc.out i a ib 

debería ser capaz de cargar y grabar programas de disco o de cinta, utilizando la unidad 
A o la B. Otras órdenes externas son las siguientes: 

! d i r- idrive ¡era iren iuser 

Las explicaremos en el capítulo titulado ‘AMSDOS y CP/M’. 


Copia de discos con CP/M 

El contenido completo de un disco se puede copiar a otro utilizando el programa 
DISCKIT3 (cara 1 del juego de discos maestros de CP/M). 

Puede utilizar el método que vamos a describir para copiar los propios discos maestros. 

Inserte el primer disco maestro de CP/M en la unidad, con la cara 1 hacia arriba, y 
escriba 

i cpm 

Cuando aparezca el mensaje A>, escriba 
d i scl< i t3 

Al cabo de unos instantes verá aparecer en la pantalla el mensaje de presentación de 
DISCKIT3, seguido de 

One drive -found 

Esto confirma que estamos ejecutando el programa de ayuda DISCKIT3 y que el orde¬ 
nador ha detectado una unidad de disco (la incorporada en la máquina). 

En cambio, si está conectada la segunda unidad de disco, el mensaje será: 

Two drives -found 
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En la parte inferior de la pantalla se puede ver el siguiente menú: 


Copy 
Forraat 
Ver i -f y 

Exit -frorn proqrara 



Copiar 

Inicializar 

Verificar 

Fin del programa 


Es el menú principal del programa DISCKIT3. Los números recuadrados hacen refe¬ 
rencia a las teclas de función del teclado numérico (marcadas con fO, fl, f4 y f7). Pul¬ 
sando una de estas teclas se elige la opción deseada. 

Observe que la opción 0 de este menú hace que se abandone el programa DISCKIT3 
y se vuelva al modo directo de consola de CP/M (inductor A>). 

Como lo que queremos hacer ahora es copiar un disco, pulse la tecla de función núme¬ 
ro 7 (f7). 


PRECAUCION 

AL COPIAR SOBRE UN DISCO SE BORRA SU CONTENIDO ANTERIOR 


Copia en un sistema de una sola unidad de disco 


Suponiendo que su sistema sea de una sola unidad de disco (es decir, que no tenga co¬ 
nectada la segunda unidad), el mensaje que aparecerá en la pantalla es: 



Copy 


Any other- key to exit menú 


Copiar 

Cualquier otra tecla 
para volver al menú 


En este momento debe extraer el disco de CP/M e insertar el disco que va a copiar (el 
disco fuente). Si va a copiar el disco de sistema de CP/M, déjelo en la unidad de disco. 

Cuando haya insertado el disco fuente, pulse la tecla Y (de yes, “sí”), lo que equivale 
a decir: “de acuerdo, copia el disco”. 
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El ordenador comprueba cuál es el formato del disco fuente y exhibe el mensaje ade¬ 
cuado en la primera línea de la pantalla. 

Al cabo de unos segundos aparece el mensaje 

Insert disc to WRITE Insertar disco para ESCRIBIR 

Pr ess any key to continué Pulsar cualquier tecla para continuar 

En este momento debe extraer de la unidad el disco fuente, insertar el disco sobre el 
que quiere copiar (disco de destino) y pulsar una tecla. 

En la pantalla aparece información sobre el formato que va a tener el disco destino 
(aun cuando sea un disco nuevo no inicializado). 

Si el disco destino no está inicializado, o no lo está correctamente, aparecerá el mensaje 

El disco no está inicializado 

Disc isn’t -formatted (or -faulty) (o es defectuoso) 

Going to lorunat while capying Voy a inicializar al copiar 

Disc will be system -format El disco tendrá formato de 

sistema 

o alguno similar, dependiendo del formato del disco fuente. 

Cuando el ordenador esté otra vez dispuesto a seguir leyendo el disco fuente, emitirá 
el mensaje 

Insert disc to READ Insertar disco para LEER 

Press any key to continué Pulsar cualquier tecla para continuar 

y usted debe insertar nuevamente el disco destino. 

El proceso se repite las veces necesarias hasta que la copia está terminada; entonces 
aparece el mensaje: 

Copy completad Copia terminada 

Remove disc Extraer el disco 

Press any key to continué Pulsar cualquier tecla para continuar 

Siga entonces las instrucciones que vea en la pantalla: pulse Y para copiar otro disco, 
o cualquier otra tecla para volver al menú. 


Protección contra escritura 

El sistema no permite copiar sobre un disco que tenga abierto el orificio de protección 
contra escritura. Si lo intenta, el ordenador emite el mensaje: 
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D i se write-protected El disco está protegido contra escritura 
Insert di se to WRITE Insertar disco para ESCRIBIR 
R-etry 01 C-aricel R-eintentar o C-ancelar 

Lo que se debe hacer entonces es pulsar C para cancelar la operación, extraer el disco 
e insertar el disco sobre el que sí se quiere copiar, con el orificio de protección 
obturado. 

Es muy importante no cerrar los orificios de protección de los discos que contengan 
programas valiosos. NO CERRAR NUNCA los orificios de protección de los discos 
maestros de CP/M. 


Copia en un sistema de dos unidades de disco 


Siga las instrucciones de la sección anterior para cargar el programa DISCKIT3 (cara 
1 del juego de discos de CP/M); elija la opción copy pulsando la tecla f7 en el menú. 

El programa ofrece un nuevo menú: 


Read -from A: 
Read -from B: 
Exit menú 



Leer en A: 

Leer en B: 
Vuelta al menú 


Al copiar en un sistema de dos unidades de disco ya no es necesario intercambiar repe¬ 
tidamente el disco fuente y el disco destino. Pulse la tecla F8 para copiar desde la uni¬ 
dad A. 

El programa ofrece un tercer menú: 


Write to A: 


8 

Write to B: 


5 

E>;it menú 


2 


Escribir en A: 
Escribir en B: 
Vuelta al menú 
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Este menú permite elegir la unidad en la que se desea poner el disco destino. Se puede 
elegir la misma que para el disco fuente, pero entonces no se aprovecha la ventaja que 
representa disponer de la segunda unidad de disco, y habrá que intercambiar los discos 
fuente y destino varias veces durante el proceso de copia. 

Lo más conveniente es, pues, pulsar f6 para copiar hacia la unidad B. 

Introduzca los dos discos en las unidades correspondientes y pulse Y para poner en 
marcha el proceso de copia. 

El ordenador emite información acerca del formato de los dos discos. Si el disco desti¬ 
no no está inicializado, o no lo está correctamente, el ordenador lo inicializará al mis¬ 
mo tiempo que realiza la copia. 

Una vez concluido el proceso, se emite el siguiente mensaje: 

Copy completed Copia terminada 

Reniove both dises Extraer los dos discos 

Press any key to continué Pulsar cualquier tecla para continuar 

Extraiga entonces los dos discos antes de proseguir. A continuación puede optar por 
copiar otro disco (pulsando Y) o por volver al menú de DISCKIT3 (pulsando cualquier 
otra tecla). 


Verificación de discos 


El programa DISCKIT3 también ofrece la opción de verificar (comprobar) discos. 

Esta opción exhibe en la pantalla información acerca del formato del disco; lee todos 
los ficheros del disco e informa sobre los errores que encuentra. 

El proceso completo de verificación de un disco es el siguiente: inserte la cara 1 de los 
discos de CP/M y escriba 

! cpm 

Cuando aparezca el inductor A> escriba 
disckit3 

Seleccione la opción verify del menú principal de DISCKIT3 pulsando la tecla fl y lue¬ 
go siga las instrucciones que vayan apareciendo en la pantalla. 

Si tiene conectada la segunda unidad de disco, el programa le ofrece la opción de elegir 
qué unidad de disco quiere utilizar para la verificación. 

Una vez instalado el disco a verificar, pulse Y para iniciar el proceso. 
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Cuando la verificación termina, se emite el siguiente mensaje: 

Ve r i i y c omp 1 e t ed Verificación terminada 

Remove d i se Extraer el disco 

Press any key to continué Pulsar cualquier tecla para continuar 

Si tiene conectada la segunda unidad de disco, el programa exige que extraiga los dos 
discos antes de permitirle continuar. Entonces puede optar por verificar otro disco 
(pulsando Y) o por volver al menú de DISCKIT3 (pulsando cualquier otra tecla). 


Utilización del programa DISCKIT en CP/M 2.2 

Si desea inicializar, copiar o verificar discos creados con o para el CPC664 o el sistema 
CPC464+DDY1 (los cuales sólo disponen de CP/M 2.2), puede utilizar la versión del 
programa DISCKIT que está grabada en la cara 4 del juego de discos de CP/M. El pro¬ 
grama se llama DISCKIT2 y funciona de la misma manera que el DISCKIT3 que acaba¬ 
mos de describir. 

Para ejecutar DISCKIT2, inserte el segundo disco de CP/M, con la cara 4 hacia arriba, 
en la unidad de disco incorporada al ordenador y escriba 

i cpm 

Cuando aparezcan el mensaje de presentación de CP/M 2.2 y el inductor A>, escriba 
disckit2 

Elija las opciones requeridas y siga las instrucciones que aparezcan en la pantalla igual 
que si se tratase de DISCKIT3. 

Observación. Al copiar, el programa DISCKIT2 utiliza la memoria de la pantalla para 
almacenar datos temporalmente. Esto hace que en ella aparezcan imágenes aleatorias 
durante el proceso de copia. 


Información adicional 

En los capítulos 4 al 9 se describe la utilización de otros programas del juego de CP/M. 

Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE INSTALACIÓN 5, 6 y 7 (pág. 4) 

NOTAS DE OPERACIÓN 1, 2, 3, 4, 5, 6, 7 y 9 (págs. 4 y 5) 
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Parte 11: Introducción al gestor de bancos 
de memoria 


£1 segundo bloque de 64K de memoria 

El CPC6128 está dotado de 128K de RAM (random acces memory, memoria de acceso 
aleatorio) divididos en dos bloques de 64K cada uno. CP/M Plus utiliza todos los 
128K, pero en cambio BASIC normalmente no se sirve más que de los 64K primeros. 
Sería una pena no aprovechar los otros 64K en los programas de BASIC, así que hemos 
incluido un programa que proporciona órdenes gracias a las cuales se puede utilizar 
esa memoria con dos usos específicos: como almacén de imágenes de pantalla o como 
espacio para almacenar cadenas de caracteres. 

El programa se llama ‘gestor de bancos’ (‘banco’ es un término técnico que significa 
‘bloque de memoria’). 

Control de imágenes de pantalla con el gestor de 
bancos 

El ordenador 6128 visualiza y mantiene constantemente actualizada una imagen de 
pantalla. Para ello necesita 16K de memoria en la que almacenar información acerca 
del color y el brillo de todos los pixels (puntos) de la pantalla. En la memoria del 6128 
hay espacio suficiente para almacenar información sobre seis imágenes de pantalla si¬ 
multáneamente (16K para cada una). El gestor de bancos proporciona las órdenes nece¬ 
saria para manipular y visualizar desde BASIC cinco de las pantallas posibles. 

Cuando se conecta el ordenador, la imagen que se observa en la pantalla está formada 
con los datos almacenados en el primer bloque de 16K (que denominaremos ‘bloque 
1’), dentro del primer banco de 64K. Las otras cuatro pantallas están en el segundo 
banco de 64K y les llamaremos bloque 2, bloque 3, bloque 4 y bloque 5. 

En realidad, el único bloque cuya información se consulta para formar la imagen es 
el bloque 1. Para visualizar los bloques del segundo banco (bloques 2, 3, 4 y 5) hay 
que transferirlos al bloque 1. El gestor de bancos proporciona las órdenes necesarias 
para realizar esas transferencias: ¡SCREEIMCOPY copia el contenido de un bloque en 
otro, borrando la información previamente grabada en el bloque destino; ¡SCREEN- 
SWAP intercambia el contenido de dos bloques. 
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Las órdenes del gestor de bancos son órdenes externas, similares a las de AMSDOS ya 
descritas en este capítulo, y van precedidas, por consiguiente, por el símbolo ! (tecla 
@ con [MAYS]). 


Utilización del gestor de bancos 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. Inserte en la unidad de dis¬ 
co la cara 1 del juego de discos del sistema y escriba 

RUN "BANKMAN" 

El procedimiento de carga se explica en el capítulo 7, partes 13 y 14, en las que se habla 
de las RSX (Residen! System eXtensions, ampliaciones del sistema residentes). Convie¬ 
ne tener cierta idea de cómo funcionan estas rutinas y de cómo reservarles espacio en 
la memoria antes de utilizarlas en los programas. No obstante, para probar los siguien¬ 
tes ejemplos no es necesario conocer el procedimiento de carga. 

Escriba: 

MODE 1 

PRINT “ESTA ES LA PANTALLA IMPLICITA" 

!SCREENSWAP,1,2 

El texto debe haber desaparecido como consecuencia de la última orden (screenswap 
significa “intercambio de pantalla”). Lo que ahora hay en la pantalla es la información 
que antes estaba almacenada como ‘pantalla 2’ (en el bloque 2). Si la máquina estaba 
recién encendida, será seguramente una imagen aleatoria. Para borrarla escriba: 

MODE 1 

y a continuación: 

PRINT “ESTA ES LA PANTALLA 2" 

¡SCREENSWAP,1,2 

Ha vuelto a aparecer el texto original. Al repetir la orden !SCREENSWAP,1,2 hemos 
vuelto a intercambiar las dos pantallas. Con la orden ! SCREENSWAP se puede inter¬ 
cambiar cualquier pantalla de las cinco disponibles con cualquier otra; pero el efecto 
sólo será visible si una de las pantallas implicadas es la número 1. 

La otra orden es ! SCREENCOPY (“copia de pantallas”). Con ella se copia una panta¬ 
lla sobre otra y se borra la que originalmente había en el bloque destino. 
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Escriba: 


MÜDE 1 

PRINT "VAMOS A COPIAR ESTA PANTALLA" 

!SCREENCOPY,2,1 

La pantalla fuente, la 1, se ha copiado en la pantalla destino, la 2. Si ahora invertimos 
el orden de los parámetros, 


MODE 1 

¡SCREENCOPY,1,2 


el contenido de la pantalla actualmente visible (es decir, la 1) es sustituido por el de 
la pantalla 2. 

Así pues, el primer parámetro representa la pantalla destino; el segundo, la pantalla 
fuente. 

Al copiar pantallas se producen imágenes distorsionadas si los modos de pantalla son 
diferentes o si la pantalla visible ha sido desplazada hacia arriba después de la última 
ejecución de una orden MOOE. Las órdenes de control de pantallas del gestor de ban¬ 
cos están pensadas para su utilización en pantallas gráficas más bien que en pantallas 
de texto, y en aquéllas el desplazamiento de la pantalla es más improbable. 


Utilización del gestor de bancos en el 
almacenamiento de cadenas literales 

El programa gestor de bancos proporciona otras cuatro órdenes externas mediante las 
cuales se puede convertir el segundo banco de memoria (64K) en un archivo de cadenas 
literales. 

Casi todos los programas se pueden dividir en dos partes: las instrucciones del progra¬ 
ma y los datos con los que opera. Un buen ejemplo sería un programa de base de datos, 
tal como una lista de nombres y direcciones. Un programa así utilizaría vectores litera¬ 
les para almacenar los nombres y las señas. 

Las cadenas literales se pueden almacenar en el segundo banco de 64K de memoria, 
una tras otra. El espacio dedicado a almacenar las cadenas se puede dividir en una serie 
de compartimentos que denominaremos registros. Los registros son de longitud fija, 
entre 2 y 255 caracteres cada uno, mientras que la longitud de las cadenas literales de 
BASIC no es fija, sino que depende de los caracteres que las integren. El método de 
almacenamiento mediante registros proporciona compartimentos de tamaño unifor- 
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me: una especie de casillero en el que se guarda la información de forma bien organiza¬ 
da. Cada operación de escritura o lectura de datos de un registro va acompañada de 
un avance automático al registro siguiente, el cual queda dispuesto para la siguiente 
operación. El registro con el que se va a realizar la siguiente operación es el ‘registro 
actual’, y es el que las órdenes del gestor de bancos utilizarán si no se especifica otro 
diferente. 

A este sistema de gestión de la memoria le hemos dado el nombre de ‘RAMdisc’ o 
‘disco virtual’ porque funciona de forma muy parecida a como lo hacen los sistemas 
de fichero de acceso aleatorio en disco, con la única diferencia de que el soporte físico 
es la RAM en lugar de un disco. 

Lea las siguientes descripciones de las diversas órdenes; si no aprende a utilizarlas inme¬ 
diatamente, al menos apreciará para que sirven. Después practique con los ejemplos. 

La primera orden de RAMdisc es ! BANKOPEN. Esta orden especifica el número de 
caracteres que va a tener cada registro. La sintaxis es: 

iBANKOPEN,n 

donde n es un número que especifica la longitud de los registros. El número n puede 
tener cualquier valor del margen de 0 a 255, pero los valores 0 y 1 producen efectos 
incontrolados. 

! BANKWRITE almacena una cadena literal en el ‘registro actual’. Al terminar la eje¬ 
cución de la orden, el ‘puntero de registro’ pasa a apuntar al registro siguiente a aquél 
en el que se ha escrito y lo convierte en el nuevo ‘registro actual’. La sintaxis es: 

!BANKWRITE,@r%,a$ 

o bien 

!BANKWRITE,@r%,a$,n 

donde r% es una variable entera que contiene, al terminar la orden, cierta información 
acerca de la operación que se acaba de realizar. a$ es una variable literal que contiene 
los caracteres que se han de almacenar en el registro. En el primero de estos dos ejem¬ 
plos se escribe en el registro actual; en el segundo ejemplo el parámetro opcional n es¬ 
pecifica el número de registro en el que se debe escribir. 

! BANKREAD examina un registro y asigna su contenido a una cadena literal; al termi¬ 
nar la lectura, incrementa el puntero de registros y convierte en registro actual el si¬ 
guiente a aquél en que se realizó la operación. El contenido de los registros no resulta 
modificado por las operaciones de lectura. La sintaxis de ! BANKREAD es la siguiente: 

!BANKREAD,@r%,a$ 
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o bien 


! BANKREAD, <2r-%, a$, n 

donde r% es una variable entera que contiene, al terminar la orden, cierta información 
acerca de la operación que se acaba de realizar. a$ es una variable literal a la que se 
asigna los caracteres leídos en la operación. En el primero de estos dos ejemplos se lee 
el registro actual; en el segundo ejemplo el parámetro opcional n especifica el número 
de registro que se debe leer. 

La última orden de este grupo es IBANKFIND. Esta orden examina los registros en 
busca de una cadena literal especificada. Si la encuentra, entrega el número de registro 
en el que la ha encontrado. La sintaxis de IBANKFIND es: 

IBANKFIND,@r%,a$ 

o bien 

¡EANKFIND,@r %,a$,n 


o bien 

! BANKFIND, er %, a$¡, n, m 

donde r% es una variable entera que contiene, al terminar la orden, o bien el número 
de registro en el que se ha encontrado la cadena, o bien un código que indica que la 
cadena no ha sido encontrada. a$ es la cadena que se busca. El parámetro opcional 
n especifica el número de registro a partir del cual se debe empezar a buscar. Si no se 
especifica n, la búsqueda comienza a partir del registro actual. El segundo parámetro 
opcional, m, especifica el número de registro en el que se debe abandonar la búsqueda. 
Si se omite m, la búsqueda continúa hasta el final de los 64K de memoria, con lo que 
se puede sobrepasar el final de los datos escritos por el programa. 

Pruebe ahora los siguientes ejemplos. Si ya ha ejecutado el programa para estudiar las 
órdenes de manipulación de pantallas y no ha reinicializado la máquina desde entonces, 
las órdenes de RAMdisc seguirán en la memoria. De lo contrario, inserte la unidad de 
discos la cara 1 del juego de discos del sistema y escriba lo siguiente: 

RUN "BANKMAN" 

Ahora escriba: 

!BANKOPEN,20 

Esta orden especifica que los registros van a ser de 20 caracteres cada uno y selecciona 
como registro actual el número 0. 
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Escriba: 


a$= ,! PRIMER REGISTRO” +SPACEÍ ( 5) 

con lo que se forma la cadena a$ con longitud de 20 caracteres. 

Escriba ahora: 

r%=0 

para inicializar r%. 

Escriba: 

¡BANKWRITE,@r%,a$ 

Esta orden escribe a$ en el primer registro (el número 0). A continuación escriba: 

d$=SPACEí¡ (20) 

!BANKREAD,@r%,d$, 0 
PRINT d* 

La primera orden iguala d$ a una cadena de 20 espacios, longitud suficiente para poder 
asignarle el contenido del registro en la operación de lectura. La segunda orden lee el 
registro número 0 y asigna su contenido a la variable literal d$. Antes de la lectura el 
registro actual era el número 1 (actualizado por la anterior ! BANKWRITE); por eso 
hemos tenido que especificar que la lectura debía realizarse en el registro número 0. 
De no haberlo hecho así, se habría leído el registro actual. La última orden de este 
ejemplo escribe en la pantalla el resultado de la lectura; si todo ha ido bien, d$ debería 
ser igual a la cadena ‘PRIMER REGISTRO’ seguida de 5 espacios. 

Escriba lo siguiente: 

b$= 11 DOS" +SPACEÍ (17) 
c$="TRES"+SPACE$(16) 

!BANKWRITE,@r%,b$,1 
!BANKWRITE,@r%,c$ 

Estas órdenes escriben b$ y c$ en los registros 1 y 2. En la primera orden 
! BANKWRITE hemos incluido el parámetro opcional, con lo que b$ ha quedado al¬ 
macenada en el registro 1. Esta misma orden ha incrementado el puntero de registro; 
al ejecutarse la segunda orden ! BANKWRITE, el puntero apunta al registro 2, y es en 
él donde se almacena c$. 

Escriba: 


PRINT re¬ 
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El resultado debería ser 2. Este número se puede considerar como el número del último re¬ 
gistro sobre el que se ha operado, o bien como el número del registro actual menos uno. 
En este ejemplo, el último registro utilizado es el 2; el registro actual (o sea, el registro 
sobre el que actuará la próxima orden de RAMdisc si no se especifica otra cosa) es el 3. 

Esta variable, r%, proporciona siempre información acerca de cómo se ha desarrollado 
la última operación. Si la operación ha concluido con éxito, la variable toma un valor 
positivo que representa un número de registro. En caso contrario, el valor es negativo 
e indica un código de error. ¡ BANKWRITE y ! BANKREAD pueden generar los dos 
códigos de error siguientes: 

— 1 Indica que se ha alcanzado el final del fichero. Esto ocurre cuando ya se han utili¬ 
zado todos los registros o cuando se especifica un número de registro que no existe. 

—2 Indica un fallo en la conmutación de bancos. No debería ocurrir nunca. 

Pruebe los siguientes ejemplos: 


d*=STRING$(20,"X") 

!EANKOPEN, 20 

FOR r.= l TG 3: ! BANKWRI TE, @r %, d$: NEXT 

La primera orden asigna a la variable literal d$ una cadena formada por 20 letras ‘X’. 
! BANKOPEN reinicializa el puntero de registros a 0, de modo que ! BANKWRITE es¬ 
cribe la cadena d$ en los registros 0, 1 y 2, borrando su contenido anterior. 

Ahora escriba: 

a$¡=" PRIMERO" 

!BANKWRITE,@r%,a*,0 

Estas órdenes escriben la palabra ‘PRIMERO’ en el registro 0, superponiéndola a algu¬ 
nas de las ‘X’ que había antes en él. Vuelva a igualar d$ a una cadena de espacios con 

d$=SPACE$<20) 

y escriba 

iBANKREAD,@r%,d$,0 

Esta orden lee el registro 0 y asigna su contenido a d$. 

Repasemos todo lo que hemos hecho hasta ahora. Hemos escrito en los tres primeros 
registros sendas cadenas formadas por 20 letras ‘X’ cada una. Hemos cambiado las le¬ 
tras ‘X’ del registro 0 por la palabra ‘PRIMERO’. Finalmente, hemos vuelto a definir 
d$ como una cadena de 20 espacios. Si ahora escribimos 

PRINT d$ 
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el resultado debe ser ‘PRIMEROXXXXXXXXXXXXX’. Este ejemplo ilustra una 
consideración importante que se debe tener presente al utilizar estas órdenes. Si la cade¬ 
na que se escribe en un registro no lo llena completamente, los caracteres antiguos so¬ 
bre los que no se ha escrito seguirán estando en el registro. Esto puede ser ventajoso 
en ocasiones, pero en general será conveniente escribir una cadena de espacios (o sea, 
de caracteres ASCII 32) en el registro antes de actualizar la información en él almacena¬ 
da. Lo mismo se puede decir acerca de la cadena a la que se va a asignar los caracteres 
leídos en un registro: si la longitud de la cadena es mayor que la longitud del registro, 
al final de ella quedarán caracteres que no habrán resultado de la operación de lectura. 
Ésta es la razón por la que hemos borrado (o igualado a una cadena de espacios) la 
cadena d$ antes de asignar el contenido del registro 0. 

Es posible escribir una cadena en un registro que sea demasiado corto para recibir la 
cadena completa. En tal caso se ignoran los caracteres de la cadena (los últimos por 
la derecha) que no quepan en el registro. 

Análogamente, si se lee un registro y se asigna su contenido a una cadena demasiado 
corta, los caracteres que no quepan en ella serán ignorados. En las operaciones norma¬ 
les con cadenas, BASIC ampliaría automáticamente la cadena para aceptar todos los 
caracteres, pero esto no es así cuando se utilizan órdenes externas. 

Finalmente, vamos a describir la orden ! BANKFIND. Esta orden sirve para examinar 
los registros en busca de una sucesión de caracteres especificada. Por ejemplo, si el re¬ 
gistro número 24 empieza con la palabra ‘DANIEL’, la orden 

!BANKFIND,@r %,"DANIEL" 

la encontrará. Esta función es extremadamente útil en los programas de bases de datos, 
en los cuales se puede necesitar, por ejemplo, buscar un nombre a lo largo del fichero. 

! BANKFIND inicia la búsqueda a partir del registro actual y la continúa hasta que en¬ 
cuentra la cadena o hasta el final de los 64K de memoria, si no se especifica otra cosa. 

Se puede incluir un parámetro para especificar el número de registro a partir del cual 
se debe buscar. Después de éste se puede incluir otro parámetro para especificar en qué 
número de registro se debe interrumpir la búsqueda. 

! BANKFIND también puede buscar una cadena que no esté al principio de registro. 
Para ello, al principio de la cadena buscada se incluyen tantos caracteres chr$(0) como 
posiciones haya en el registro antes de los buscados. Los caracteres chr${0) actúan co¬ 
mo ‘símbolos comodín’ (como los ? en los nombres de ficheros de CP/M), con el signi¬ 
ficado de ‘cualquier carácter’. Por ejemplo, 

a$=STR ING$(10,0)+"DANIEL" 

1BANKFIND,@r%,a$,0 

busca el primer registro en el que figure la palabra ‘DANIEL’ en las posiciones 11. a 
a 16. a Los diez primeros caracteres del registro podrían contener un número de teléfo¬ 
no o cualquier otra información que ¡BANKFIND ignoraría. 
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Al concluir la operación, la variable r% contiene el número del registro en el que se 
ha encontrado la cadena, o bien el código -3 si no se la ha encontrado. 


Información adicional 


En el capítulo 8 se puede encontrar más información sobre el gestor de bancos; estudie 
también las partes 13 y 14 del capítulo 7, en las que se describen las RSX. 


Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada ‘IMPORTANTE’: 

NOTAS DE OPERACIÓN 1, 2, 3 y 9 (págs. 4 y 5). 


Aquí termina este ‘Curso de introducción’ al CPC6128. Es de esperar que usted haya 
aprendido para qué sirve la mayor parte de las teclas, cómo utilizar las instrucciones 
más sencillas de BASIC, cómo preparar un disco virgen, cómo realizar las funciones 
más elementales de manejo de discos, tales como LOAD, SAVE y CAT, y cómo utilizar 
unas cuantas órdenes de AMSDOS, CP/M y el gestor de bancos. 

En el resto del manual abordaremos cuestiones más avanzadas. Estudiaremos el 
BASIC de AMSTRAD, el funcionamiento de la unidad de disco, con secciones dedica¬ 
das a AMSDOS y CP/M, y daremos una introducción a un nuevo lenguaje: el DR. 
LOGO de Digital Research. 

¡Buena suerte y que disfrute! 
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Capítulo 2 

La génesis de un programa 


Pues bien. Usted ya ha leído el ‘Curso de introducción’ y tiene ante sí el ordenador 
encendido. Ya sabe cómo hacer que el ordenador repita una tarea varias veces con la 
instrucción FOR.... NEXT y cómo hacerle realizar operaciones de forma condicional 
con la instrucción IF ... THEN .... 

Pero pronto empezará a cansarse de ver su nombre repetido hasta la saciedad en la pan¬ 
talla y querrá aprender algo de informática más seria, algo útil o divertido. En el capí¬ 
tulo siguiente damos la lista de todas las palabras clave del BASIC de AMSTRAD, jun¬ 
to con su sintaxis, es decir, la forma de utilizarlas. Con estas herramientas en la mano, 
el único límite a lo que puede obtener del ordenador lo fijará su imaginación. 

Si no ha utilizado antes ningún otro ordenador, es probable que la palabra ‘programa¬ 
ción’ le suene amenazadora. ¡No le tenga miedo! Programar es más fácil de lo que us¬ 
ted cree, y desde luego mucho más fácil de lo que la jerga técnica da a entender. 

No se deje asustar por BASIC y verá qué pronto empieza a disfrutar de la programa¬ 
ción y de los frutos de su esfuerzo. Programar puede llegar a ser un ejercicio muy grati¬ 
ficante, en particular para el principiante que se pone a experimentar con la máquina 
y el lenguaje. Recuerde siempre que, a excepción del riesgo de borrar accidentalmente 
los discos de CP/M, nada que usted haga en el teclado puede dañar el ordenador; siem¬ 
pre vale la pena intentar algo nuevo. 


¿Por dónde empezamos? 

En programación, como en muchas otras actividades, lo más difícil es empezar. Sin 
embargo, lo peor que puede hacer es lanzarse directamente al teclado sin antes pensar 
para qué. 

El primer paso en el desarrollo de un programa debe ser establecer claramente qué se 
pretende que el programa haga y cómo se quiere que presente los resultados en la 
pantalla. 

Decidido esto, se puede empezar a escribir un programa que realice las funciones desea¬ 
das, preocupándose siempre de que el programa discurra suavemente de principio a fin, 
con el mínimo número de saltos posible. Un buen programa debe ser fácil de leer una 
vez listado, no un lío indescifrable que haga imposible la detección de errores o la depu¬ 
ración del programa. 

Afortunadamente, BASIC es un lenguaje muy tolerante que facilita la depuración de 
los programas emitiendo mensajes que indican dónde está el error y en qué consiste. 
Además, hace posible la ampliación de los programas, pues permite intercalar líneas 
nuevas entre las ya existentes. 
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Un programa sencillo 


Manos a la obra. Vamos a escribir un programa que controle y mantenga un fichero 
con los nombres y números de teléfono de nuestros amigos. Le llamaremos ‘guía de 
teléfonos’. Para respetar las reglas que hemos enunciado, ‘¿qué debe hacer el progra¬ 
ma?’; ‘¿cómo debe presentar los resultados en la pantalla?’ 

El programa debe permitirnos almacenar 100 nombres y números de teléfono. Cuando 
queramos averiguar un número de teléfono, escribiremos el nombre y el ordenador nos 
dará el número. Además, por si no recordamos cómo habíamos escrito algún nombre, 
el programa debe ser capaz de exhibir toda la información en la pantalla. Dicho sea 
de paso, esto ya nos hace empezar a pensar en la forma de presentación de los resulta¬ 
dos en la pantalla. 

De acuerdo, vamos al teclado. Empezaremos por escribir el nombre del programa: 
10 REM guia de teléfonos 

No es imprescidible dar nombre a todos los programas, pero comprobará cuando tenga 
grabados unos cuantos que es muy útil poder averiguar de un golpe de vista cuál es 
cuál. 

Lo siguiente que necesitamos es poder captar por el teclado (con INPUT) una cadena 
de caracteres (quizá un nombre) para luego poder asignarlo a una variable. A la varia¬ 
ble que represente el nombre le llamaremos NOMBRE$. Lo mismo se puede hacer con 
el número de teléfono; a la variable le llamaremos TEL$. 

¿Recuerda todavía los programas del ‘Curso de Introducción’? En algunos de ellos uti¬ 
lizábamos la instrucción INPUT para captar los valores de las variables. Escribamos: 

20 INPUT "Escriba el nombreNOMBRE* 

30 INPUT "Escriba el numero de te 1efono:";TEL* 
run 

En respuesta al programa podemos introducir un nombre (por ejemplo, Juan) y luego 
un número de teléfono (por ejemplo, 923 233717). 

El programa ha almacenado la información que le hemos sumistrado, pero no ha escri¬ 
to ningún resultado en la pantalla. Así pues, en algún lugar del programa necesitaremos 
instrucciones del tipo 

PRINT NOMBRE* ... y ... PRINT TELS 
con las que recuperemos los valores de las variables. 

Algo falla, ¿verdad? Dijimos que nuestro programa debería ser capaz de almacenar 100 
nombres con sus números de teléfono; si seguimos por este camino, necesitaremos 200 
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instrucciones INPUT para escribrir la lista en la pantalla. No se inquiete; los ordenado¬ 
res tienen un recurso que permite manejar con facilidad grandes cantidades de datos: 
se trata de las ‘listas’. Una lista es una variable que puede representar, con un solo 
nombre (tal como NOMBRE$), un grupo de datos (en nuestro caso necesitamos 100) 
que se identifican por un índice. Cuando queramos referirnos a un dato concreto, lo 
citaremos por el nombre de la variable seguido del índice entre paréntesis; por ejemplo, 
NOMBRE${27), donde 27 es el índice y NOMBRES$ es lo que denominamos variable 
indexada. Si como índice ponemos una variable numérica, NOMBRE${x), en lugar de 
un número concreto, podemos manejar la lista completa de datos, del 1 al 100, varian¬ 
do el valor de x dentro de un bucle FOR ... NEXT (v. g., FOR x=1 TO 100). A medida 
que se va incrementando el valor de x, el índice de NOMBRE$ va señalando los dife¬ 
rentes elementos de la lista. 

En nuestro programa necesitamos dos listas, NOMBRE$ y TEL$, cada una con capaci¬ 
dad para 100 elementos. Pero tenemos que informar al ordenador de nuestras intencio¬ 
ne, y para ello debemos dimensionar las listas con la instrucción DIM. Cambiemos las 
líneas 20 y 30: 

20 DIM NOMBRE* ( 180) 

30 DIM TEL*(100) 

Ahora ya podemos escribir el tramo del programa que nos va a permitir introducir 
nombres y números de teléfono. Añada las siguientes líneas: 


40 

FOR x — 1 

TO 100 

50 

INPUT; " 

Nombre ";NOMBRE*(x) 

60 

INPUT " 

Tele-fono ";TEL*(x) 

70 

NEXT 


run 




Pero no es probable que vayamos a introducir los 100 nombres de una vez, y además 
la forma de presentación en la pantalla es muy desordenada. Tenemos que organizar- 
nos mejor. En primer lugar, antes de captar un nombre, vamos a librarnos de todo el 
texto superfluo que tenemos en la pantalla: 

45 c 1 s 

¿Qué podemos hacer para decirle al ordenador que de momento ya no queremos intro¬ 
ducir más datos? Podemos detener el programa pulsando [ESC] dos veces, pero cuan¬ 
do volvamos a teclear run perderemos todos los datos introducidos anteriormente. 

Ésta es la solución. Cada vez que el programa capte un nuevo nombre, haremos que 
examine el dato introducido para ver si consta de al menos un carácter o si, por el con¬ 
trario, es la ‘cadena vacía’. Si lo es, haremos que suspenda la captación de datos. Aña¬ 
da lo siguiente: 

55 IF NOMBRE*íx)="" THEN 30 

30 PRINT "Fin de la entrada de datos" 
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También necesitamos que el ordenador indique al usuario qué debe hacer para suspen¬ 
der la introducción de datos. Añada, pues, la siguiente línea: 

47 PRINT "Pulse CRETURN3 para terminar" 

Ahora vamos a escribir las instrucciones que exhiban en la pantalla la información al¬ 
macenada. Primero la lista completa: 

90 FOR x=l TO 100 

100 PRINT NOMBRE* <x) J " “¡TEL*(X) 

110 NEXT 

Otra vez nos ocurre que el programa no sabe dónde pararse y continúa hasta el centési- 
mo elemento. Esto tiene fácil arreglo: 

95 IF NOMBRE*(x)=“" THEN 120 
120 PRINT "Fin de la lista" 

La línea 95 comprueba si NOMBRE$(x) es la cadena vacía; si lo es, concluye la escritu¬ 
ra de la lista saltando a la línea 120. 

Atendamos a los otros requisitos que habíamos formulado al idear el programa. Nece¬ 
sitamos unas instrucciones que busquen en la lista un nombre introducido por el ususa- 
rio. Escriba lo siguiente: 

130 INPUT "Buscar ";BUSCA* 

140 FOR x=l TO 100 

150 IF INSTR(NOMBRE* < x),BUSCA*)=0 THEN 180 
160 PRINT NOMBRE*< x) ; " ";TEL*(x) 

170 END 
180 NEXT 

190 PRINT"No lo encuentro" 

En la línea 150 hay una instrucción nueva: INSTR. Esta instrucción determina si la ca¬ 
dena literal BUSCA$ (que es el nombre que estamos buscando, captado en la línea 130) 
está contenida en NOMBRE$(x). Si no lo está, INSTR genera el valor 0, y entonces 
el programa salta a la línea 180 para probar con el siguiente valor de x. Si el programa 
ha examinado sin éxito todos los elementos de la lista, continúa en la línea 190, donde 
informa de lo que ha ocurrido. En cambio, si encuentra el nombre, INSTR produce 
un valor mayor que 0 , lo que permite que el programa pase de la línea 150 a la 160 
para escribir el nombre y el número de teléfono y luego terminar con la instrucción 
END de la línea 170. 

Como ve, nuestro programa avanza muy deprisa, pero todavía nos queda mucho por 
hacer. Meditemos un poco sobre los inconvenientes de este programa, empezando por 
el orden en que funciona: primero capta la información, después la escribe completa 
en la pantalla, luego busca un nombre concreto. 
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¿Qué ocurre si 


9 


Precisamente. ¿Qué ocurre si no queremos que los acontecimientos se produzcan en 
ese orden? Podríamos querer consultar un teléfono que introdujimos ayer. O podría¬ 
mos querer ampliar la lista con otros nombres. Esto nos plantea nuevos problemas, pa¬ 
ra los que tenemos que encontrar solución. Después de todo, en esto es en lo que consis¬ 
te la programación. Ya hemos dicho que BASIC es muy amable y nos permite rectificar 
e incluir nuevas instrucciones con gran facilidad; pero un buen programador habría 
pensado en todo esto de antemano. 

Otro grave inconveniente del programa consiste en que las listas quedan almacenadas 
solamente en la memoria del ordenador, la cual se borra cada vez que se apaga el orde¬ 
nador. De poco nos serviría este programa si tuviéramos que escribir todos los datos 
cada vez que lo ejecutásemos; así pues, necesitamos que el programa pueda grabar los 
valores de los elementos de NOMBRE$ y TEL$ antes de que apaguemos el ordenador, 
y también que pueda cargar los datos cada vez que lo ejecutemos. 


Soluciones 


El primero de los problemas mencionados (el del orden de ejecución) se resuelve ha¬ 
ciendo que el programa dé la posibilidad de elegir entre las funciones que sabe realizar. 
De un programa de este tipo se dice que está ‘controlado por menú’ pues, en efecto, 
ofrece un menú de opciones de entre las cuales se elige la deseada. Si alguna vez ha 
sacado dinero de un cajero automático, ya ha utilizado un programa de ordenador con¬ 
trolado por menú. Añadamos un menú a nuestro programa: 

32 PRINT" 1. Intr-od. datos" 

33 PRINT"2. Listado" 

34 PRINT"3. Búsqueda" 

35 PRINT 11 4. Grabar de datos" 

36 PRINT"5. Cargar datos" 

37 INPUT "Elija una opcion (1-5) "jel 

38 ON el GOSUB 40,90,130 

85 RETURN 
125 RETURN 
170 RETURN 
200 RETURN 

Hemos hecho que el programa escriba la lista de opciones y que capte la elección del 
usuario mediante una instrucción INPUT para asignarla a la variable el. La instrucción 
ON el GOSUB de la línea 38 funciona de la siguiente forma: si el = 1, invoca la subruti¬ 
na de la línea 40; si el=2, invoca la subrutina de la línea 90, etc. 
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Puesto que todas las funciones están ahora en subrutinas (controladas por la instruc¬ 
ción ON el GOSUB), tienen que terminar en una instrucción RETURN. De ahí que 
hayamos incluido las líneas 85, 125, 170 y 200. 

¿Recuerda para qué sirve RETURN? Hace que BASIC retorne de la subrutina a la ins¬ 
trucción siguiente a aquella que invocó la subrutina. En nuestro caso, el punto de retor¬ 
no es la instrucción siguiente a la línea 38, que es la línea 40. Si dejamos que esto ocu¬ 
rra, el programa entra en la subrutina de ‘Introducción de datos’. Para impedirlo aña¬ 
dimos la línea 

39 GOTO 32 

que reconduce el programa al menú. 

Ejecute el programa y vea cuánto hemos progresado. 

Bien; vamos a echar un vistazo al listado. (Detenga el programa pulsando [ESC] dos 
veces.) Escriba: 

LIST 

Esto es lo que tenemos por el momento: 

10 REM guia de tele-fonos 
20 DIM NOMBRE*(100) 

30 DIM TEL*(100) 

32 PRINT"1. Introd. datos" 

33 PRINT"2. Listado" 

34 PRINT"3. Búsqueda” 

35 PRINT"4. Grabar datos" 

36 PRINT"5. Cargar datos” 

37 INPUT "Elija una opcion (1-5) ";el 

38 ON el GOSUB 40,90,130 

39 GOTO 32 

40 FOR x = l TO 100 
45 CLS 

47 PRINT"Pulse [RETURN! para terminar" 

50 INPUTj" Nombre "}N0MBRE*(x) 

55 IF NOMBRE*(x)=" n THEN 80 
60 INPUT;" Telefono "»TEL*(x) 

70 NEXT 

80 PRINT "Fin de la entrada de datos" 

85 RETURN 

90 FOR x=i TO 100 

95 IF NOMBRE*(x)="” THEN 120 

100 PRINT NOMBRE*(x);" H ;TEL*(x) 

110 NEXT 

120 PRINT "Fin de la lista" 
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125 RETURN 

130 INPUT "Buscar BUSCA* 

140 FOR x = l TO 100 

150 IF INSTR <NOMBRE*(x),BUSCA*)=0 THEN 180 
160 PRINT NOMBRE*(x);" ";TEL*(x) 

170 END 
180 NEXT 

190 PRINT“No lo encuentro" 

200 RETURN 


Observe que en algunas zonas del programa las instrucciones están muy apretadas y 
no dejan hueco para introducir otras nuevas. Reorganicemos el programa renumeran¬ 
do las líneas. Escriba: 

RENUM 

LIST 

El listado es ahora: 

10 REM guia de tele-fonos 
20 DIM NOMBRE*(100) 

30 DIM TEL*(100) 

40 PRINT"1. Introd. datos" 

50 PRINT"2. Listado" 

60 PRINT"3. Búsqueda" 

70 PRINT"4. Grabar- datos" 

80 PRINT"5. Cargar datos" 

90 INPUT “Elija una opcion (1-5) "»el 

100 ON el GOSUB 120,210,270 

110 GOTO 40 

120 FOR x=l TO 100 

130 CLS 

140 PRINT"Pulse CRETURN3 para terminar" 

150 INPUT5" Nombre ";NOMBRE*(x) 

160 IF NOMBRE*<x)= H " THEN 190 
170 INPUT;" Tele-fono ";TELS(x) 

180 NEXT 

190 PRINT "Fin de la entrada de datos" 

200 RETURN 

210 FOR x=l TO 100 

220 IF NOMBRE*(x)="" THEN 250 

230 PRINT NOMBRE*(x);" ";TEL*(x) 

240 NEXT 

250 PRINT "Fin de la lista" 

260 RETURN 
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270 INPUT "Buscar BUSCA* 

280 FOR x=l TO 100 

290 IF INSTR<NOMBRE*(x),BUSCA*)=0 THEN 320 
300 PRINT NOMBRE*( x ) ; " ";TEL*(x) 

310 END 
320 NEXT 

330 PRINT"No lo encuentro" 

340 RETURN 


¡Mucho más limpio! Pero sigamos con el programa. Ahora queremos que cada vez que 
introduzcamos un dato nuevo (nombre y número), el ordenador lo coloque al final de 
la lista actual, en el primer lugar que encuentre vacío. En esta ocasión vamos a utilizar 
la instrucción LEN para determinar la longitud de una cadena literal. Especificaremos 
lo siguiente: 

Si (IF) la longitud de NOMBRE$(x) es mayor que 0, es decir, si ya hay un dato 
en ese elemento de la lista, entonces (THEIM) ir a la línea 180 (que provoca el salto 
al siguiente elemento de la lista): 

135 IF LEN(NOMBRE*(x))>0 THEN 180 

Una solución sencilla, ¿verdad? Los problemas de este tipo siempre tienen solución si 
conocemos bien la lista de instrucciones y nos paramos a pensar un poco. Para casi 
todas las necesidades hay casi siempre al menos una instrucción; cuanto mayor es la 
experiencia en programación, más inmediatas son las soluciones. 

Vamos con otro requisito del programa: grabar los valores de las variables para poder 
cargarlos más tarde. En la parte 7 del ‘Curso de introducción’ hemos explicado cómo 
grabar programas (con la orden SAVE). Pero el programa no es más que la herramien¬ 
ta que nos permite captar y manipular los datos; cuando grabamos el programa sólo 
estamos guardando la herramienta, no los valores de las variables. 

Así pues, tenemos que escribir una sección del programa que grabe los valores de las 
variables. Para ello crearemos un ‘fichero de datos’. 

Lo primero es abrir (OPEN) un fichero en dirección de salida (OUT) dándole el nombre 
de ‘datos’. Después escribiremos (WRITE) los valores de las variables NOMBRE$(x) 
y TEL$(x), de 1 a 100, en el fichero; finalmente, cerraremos (CLOSE) el fichero y retor¬ 
naremos (RETURN) al menú. Pondremos esta rutina en las líneas 350 y siguientes. Pa¬ 
ra no tener que escribir los números de línea, ejecutaremos la orden 

AUTO 350 
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que inicia la numeración automática de las líneas a partir del número 350: 

350 OPENOUT "datos" 

360 FOR x-1 TO 100 

370 WRITE #9,NOMBRE$<x),TEL$(x) 

380 NEXT 
390 CLGSEOUT 

400 PRINT"Fin de la grabación de los datos" 

410 RETURN 

Cuando haya terminado de teclear la línea 410 y haya pulsado [RETURN], pulse [ESC] 
para interrumpir la función AUTO. 

Como tenemos una rutina más, tendremos que poner otro número de línea en la ins¬ 
trucción ON el GOSUB de la línea 100. Para ello vamos a corregir (editar, EDIT) la 
línea 100: 

100 ON el GOSUB 120,210,270,350 

A partir de ahora, cada vez que elijamos la opción 4 del menú, el programa grabará 
el fichero de datos en el disco. 

Observe la línea 370, en la que se escriben los valores de NOMBRE$(x) y TEL${x) en 
el disco: la expresión #9 que aparece después de WRITE es un ‘indicador de canal’ que 
especifia a qué canal debe el ordenador enviar los datos. El ordenador maneja 10 
canales: 

Los ocho primeros (#0 a #7} dirigen los datos a la pantalla [bien a la pantalla completa, 
bien a alguna ventana (WINDOW)]. 

El canal #8 es el de la impresora. 

Finalmente, el canal #9 es el que conecta el ordenador con la unidad de disco; éste es 
el que utilizamos en la instrucción 370. 


Una digresión 

Hagamos un comentario sobre la orden AUTO que acabamos de conocer. Si se escribe 
sencillamente 

AUTO 

el ordendor empieza a numerar líneas a partir del 10 y va incrementando el número 
de 10 en 10 cada vez que se pulsa [RETURN]. Si ya existen líneas 10, 20, 30, etc., su 
contenido aparece en la pantalla según se va pasando por ellas (pulsando [RETURN]) 
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Cuando aparece una línea en la pantalla, se la puede editar antes de pulsar [RETURN], 
Esto da un método para editar cómodamente líneas cuyos números estén uniforme¬ 
mente espaciados. 


Volvemos al programa 


Ya hemos escrito las instrucciones que graban los datos en disco. Ahora nos falta ocu¬ 
parnos de la lectura de los datos para ponerlos a disposición del programa. Como va¬ 
mos a escribir una nueva rutina, tendremos que poner otro número de línea en la ins¬ 
trucción ON el GOSUB. Editemos la línea 100: 

100 ON el GOSUE 120,210,270,350,420 

Para leer los datos tenemos que empezar por abrir (OPEN) en dirección de entrada (IN) 
el fichero que tenemos en el disco con el nombre de ‘datos’. Después leemos con IN- 
PUT (por el canal #9) los valores de las variables NOMBRE$(x) y TEL$(x), de 1 a 100, 
y finalmente cerramos (CLOSE) el fichero y retornamos (RETURN) al menú. Escriba 
las siguientes líneas: 

420 OPENIN "datos" 

430 FOR x = l TO 100 

440 INPUT #9,NOMBRE*< x) ,TEL*(x) 

450 NEXT 
460 CLOSEIN 

470 PRINT n Fin de la carga de los datos" 

480 RETURN 


El fin del principio 


Por fin hemos conseguido un programa que realiza todas las funciones previstas. Todo 
lo que nos queda ahora es ocuparnos de cómo presentar los resultados en la pantalla. 


El principio del fin 


Para mejorar el manejo de la pantalla vamos a añadir unas cuantas instrucciones: 
34 MODE 1 
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Esta instrucción establece el modo de pantalla y borra la pantalla al principio del pro¬ 
grama. Añada ahora lo siguiente: 

36 WINDOW #1,13,30,10,14 

No se deje impresionar por esta instrucción aparentemente tan complicada. Lo que he¬ 
mos hecho es definir una ventana en la pantalla para escribir en ella el menú. Después 
de la palabra WINDOW, lo primero que ponemos es el número del canal al que vamos 
a asignarla; recuerde que podemos elegir cualquiera entre el 0 y el 7. Ahora bien, si 
tenemos en cuenta que todos los textos que enviamos a la pantalla sin especificar núme¬ 
ro de canal circulan por el #0, no vamos a dar este número a nuestra ventana. Elegi¬ 
mos, pues, el número 1. Los cuatro números que vienen a continuación especifican el 
tamaño de la ventana. Su significado no podía ser más sencillo: columna del borde iz¬ 
quierdo, columna del derecho, primera fila y última fila, por este orden. En nuestro 
caso, después de especificar el canal # 1 , hemos dicho al ordenador que la ventana em¬ 
pieza en la columna número 13 y termina en la número 30, en horizontal, y que empieza 
en la fila 10 y termina en la 14, en vertical. 

Para dirigir los textos del menú al canal #1 debemos editar las líneas 40 a 80: 


40 

PRINT 

#1, 

"1. 

Introd. datos 

50 

PRINT 

#1, 

"2. 

Listado” 

Ó0 

PRINT 

#1, 

"3. 

Búsqueda" 

70 

PRINT 

#1, 

"4. 

Grabar datos" 

30 

PRINT 

#1, 

"5. 

Cargar datos" 


Añadamos también 

85 LOCATE 7,20 
para situar el texto de la línea 90. 

Para borrar la pantalla cada vez que el programa retorne al menú, modifiquemos la 
línea 110: 

110 GOTO 34 

Además, para borrar la pantalla cada vez que se selecciona una opción del menú 
añadimos: 

95 CLS 

Finalmente, incluiremos las tres líneas siguientes para hacer que el retorno al menú sea 
controlado por el usuario: 

103 LOCATE 9,20 

105 PRINT "Pulse una tecla para volver al menú" 

107 IF INKEY$="" THEN 107 
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La línea 103 especifica dónde se debe escribir el mensaje de la línea 105. La línea 107 
examina el teclado para averiguar si se ha pulsado alguna tecla. Si no se ha pulsado 
ninguna, INKEY$ genera la cadena vacía y entonces se repite la ejecución de la línea 
hasta que efectivamente se pulse alguna. Ésta es la forma habitual de programar la es¬ 
pera hasta que el usuario se decida’, pues BASIC no pasa a la línea siguiente mientras 
no se pulse una tecla. 

Bueno, ya hemos terminado. O quizá no, porque podríamos incluir la posibilidad de 
modificar o borrar nombres y números de teléfono, de ordenarlos alfabéticamente, de 
listarlos por la impresora, etc. Todas estas mejoras son posibles; podríamos seguir me¬ 
jorando y depurando el programa indefinidamente, pero en algún momento tenemos' 
que poner el punto y aparte, y éste es tan bueno como cualquier otro. Le dejamos, 
pues, con este programa de ‘guía de teléfonos’, confiando en haberle abierto las puer¬ 
tas del arte de programar. Adecente el programa con la orden 

RENUM 


y grábelo en disco; o bórrelo si no le gusta. Quién sabe; quizá pueda necesitarlo algún 
día. 

Listado final: 


10 REM guia de tele-fonos 
20 DIM NOMBRE*(100) 

30 DIM TEL*(100) 

40 MODE 1 

50 WINDOW #1,13,30,10,14 
60 PRINT #1,"1. Introd. datos" 

70 PRINT #1,"2. Listado" 

80 PRINT #1,"3. Búsqueda" 

90 PRINT #1,"4. Grabar datos" 

100 PRINT #1,"5. Cargar datos" 

110 LOCATE 7,20 

120 INPUT "Elija una opcion (1-5) ";el 
130 CLS 

140 ON el GOSUB 190,290,350,430,500 
150 LOCATE 9,20 

160 PRINT"Pulse una tecla para volver al menú" 

170 IF INKEY*="" THEN 170 

180 GOTO 40 

190 FOR x = 1 TO 100 

200 CLS 

210 IF LEN < NOMBRE* < x))>0 THEN 260 
220 PRINT"Pulse [RETURN] para terminar" 

230 INPUT;" Nombre NOMBRE*(x) 

240 IF NOMBRE*(x)="" THEN 270 
250 INPUT;" Telefono ”;TEL*(x) 
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260 NEXT 

270 PRINT "Fin de la entrada de datos" 

280 RETURN 

290 FOR x — 1 TO 100 

300 IF NOMBREN(x)=”” THEN 330 

310 PRINT NOMBREN < x ) j " "|TEL*(x) 

320 NEXT 

330 PRINT "Fin de la lista" 

340 RETURN 

350 INPUT "Buscar "i BUSCA* 

360 FOR x=l TO 100 

370 IF INSTR(NOMBRE* (x) ,BUSCA*)=0 THEN 400 
380 PRINT NOMBRE*(x)i" *;TEL*(x) 

390 END 
400 NEXT 

410 PRINT"No lo encuentro" 

420 RETURN 

430 OPENOUT "datos" 

440 FOR x=l TO 100 

450 WRITE #9,NOMBRE*(x),TEL*(x) 

460 NEXT 
470 CLOSEOUT 

480 PRINT"Fin de la grabación de los datos" 

490 RETURN 

500 OPENIN "datos" 

510 FOR x=l TO 100 

520 INPUT #9,NOMBRE*(x),TEL*(x) 

530 NEXT 
540 CLOSEIN 

550 PRINT"Fin de la carga de los datos" 

560 RETURN 
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Capítulo 3 

Lista completa de las palabras clave del 
BASIC de AMSTRAD 


IMPORTANTE 

Es imprescindible que usted comprenda la terminología y la notación 
utilizadas en este capítulo. Para describir la sintaxis de las diversas ins¬ 
trucciones utilizamos tanto paréntesis como corchetes. Es necesario dis¬ 
tinguirlos, pues tienen significados diferentes. 


Toda instrucción, o parte de instrucción, no encerrada entre corchetes debe ser escrita 
tal como aquí se muestra. Por ejemplo, la instrucción END tiene la forma: 

END 

Usted tiene que escribir la palabra END literalmente. 

Cuando un texto está encerrado entre corchetes angulados, por ejemplo 

(minero de linea) 

no hay que teclear ni los corchetes ni las palabras en ellos incluidas. El texto es una 
indicación del tipo de datos que se debe escribir. Por ejemplo, 

EDIT (minero de linea) 

significa que hay que escribir la palabra EDIT y a continuación un espacio y un número 
de línea: 

EDIT 100 

Los paréntesis ordinarios ( ) son obligatorios y han de ser tecleados explícitamente. Por 
ejemplo, 

COS ((exoresion minerica)) 

exige que se escriban los paréntesis rodeando la expresión numérica cuyo coseno se 
quiera calcular: 

PRINT COS(45> 
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Finalmente, los corchetes delimitan elementos opcionales. Por ejemplo, 

RUN Knuiero de linea)] 

significa que no es necesario poner un parámetro después de la palabra clave RUN, 
pero que sí se puede incluir ese parámetro; además, en caso de incluirlo, tiene que ser 
necesariamente un número de línea: 

RUN ... o ... RUN 100 


Caracteres especiales 

& o &H Prefijo para constante hexadecimal 
&X Prefijo para constante binaria 

# Prefijo para indicador de canal 

Tipos de datos 

Las cadenas literales pueden contener entre 0 y 255 caracteres. Una (expresión literal) 
es una expresión que toma como valor una cadena literal. Las cadenas literales se pue¬ 
den concatenar (unir) con el operador +, a condición de que la cadena resultante no 
tenga más de 255 caracteres. 

Los datos numéricos pueden ser enteros o reales. En este sentido, los enteros tienen 
la limitación adicional de estar comprendidos entre -32768 y +32767. El ordenador 
maneja números reales con precisión ligeramente superior a nueve dígitos. Los núme¬ 
ros reales están comprendidos en el margen ±1.7E+38. El menor valor mayor que cero 
es aproximadamente 2.9E-39. 

Una (expresión numérica) es una expresión que toma como valor un número. Puede 
consistir en números concretos, en una variable numérica o en combinaciones de am¬ 
bos: cualquier cosa que no sea una (expresión literal). 

Una (expresión de número de canal) es una (expresión numérica) que identifica una 
ventana de la pantalla, la impresora o la unidad de disco. 

Una (lista de:(elemento) describe un parámetro que está formado por una lista de ele¬ 
mentos separados por comas. Puede contener uno o varios elementos, sin más limita¬ 
ción que la longitud de la línea. 

Los indicadores de tipo son: 

% Entero 

! Real (por defecto) 

$ Literal 
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La lista de las palabras clave tiene la siguiente estructura: 


PALABRA CLAVE 

Sintaxis 

Ejemplo 

Descripción 

Palabras clave asociadas 


Las palabras clave pueden ser: 

Órdenes: operaciones que se ejecutan directamente. 

Funciones : operaciones que intervienen como argumentos de una expresión. 

Operadores: operaciones que actuán sobre argumentos matemáticos. 

BASIC convierte todas las palabras clave de minúsculas a mayúsculas cuando se lista 
el programa. En los ejemplos las mostraremos en mayúsculas. Es conveniente que us¬ 
ted las introduzca en minúsculas, pues entonces le será más fácil detectar los errores, 
dado que las palabras clave erróneamente tecleadas seguirán apareciendo en minúscula 
en los listados. 

En la publicación ‘Concise BASIC specification SOFT 967’ se da una guía exhaustiva 
del BASIC del AMSTRAC CPC6128. 


Lista de palabras clave 

ABS 


ABS < (expresión America!) 

PRINT ABS(-67.98) 

67.98 

Función. Calcula el valor absoluto de la expresión dada; es decir, convierte los números 
negativos en positivos. 

Palabras clave asociadas: SGN. 


Lista completa de las palabras clave del BASIC de AMSTRAD 


3/3 





AFTER 


AFTER Petardo de! íeoporizadcrM, fnuiero de teiporizadoFll GOSÜB tnuiero de linea) 
10 AFTER 250 GOSUB Ó0:CLS 

20 PRINT "Adivine una letra en 5 segundos" 

30 a$=INKEY$:IF indicador=l THEN END 
40 IF a$< >CHR$ (IMT (RND-X-26 + 97) ) THEN 30 
50 PRINT a$;" es correcto. Usted gana." 

55 SOUND 1,478:SOUND 1,358:END 
60 PRINT "demasiado tarde. Yo gano." 

70 SOUND 1,2000:indicador=1:RETURN 
r u n 

Orden. Invoca una subrutina de BASIC cuando ha transcurrido el tiempo especificado. 
El parámetro <retardo del temporizador) especifica el tiempo en unidades de 0.02 s 
(cincuentavos de segundo). 

El < número de temporizador) (margen de 0 a 3) especifica cuál de los cuatro tempori- 
zadores disponibles debe medir el tiempo. El temporizador número 3 tiene la máxima 
prioridad; el 0 (que es el implícito), la mínima. 

Cada temporizador puede tener una subrutina asociada. 

Para más amplia información sobre las interrupciones, consulte la parte 2 del capítulo 
titulado ‘Cuando usted guste ... ’. 

Palabras clave asociadas: EVERY, REMAIN, RETURN. 


AND 

{arguiento) AND tarjuiento) 

IF 'juan'f'pepe' AND 'perro'Pgato 1 THEN PRINT •verdadero 1 ELSE PRINT ■falso' 
verdadero 

IF ’pepeVjuan 1 AND 'íato'Pperro' THEN PRINT 'verdadero 1 ELSE PRINT 'falso 1 
falso 

IF ■juan'Cpepe 1 AND 'sato'Pperro* THEN PRINT 'verdadero 1 ELSE PRINT 'falso 1 
falso 

PRINT 1 AND 1 

1 

PRINT í AND l 
i 

PRINT 1 AND 8 
8 
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Operador. Realiza la operación lógica ‘y’ bit a bit entre enteros. El resultado es 0 a 
menos que ambos bits sean 1. 

Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítu¬ 
lo titulado ‘Cuando usted guste ... ’ . 

Palabras clave asociadas: OR, NOT, XOR. 


ASC 


ASC ({expresión literal)) 

PRINT ASC (">:") 

120 

Función. Calcula el código ASCII del primer carácter de la (expresión literal). 
Palabras clave asociadas: CHR$. 


ATN 


ATN ((expresión nuierica)) 

PRINT ATN(1) 

0.785393163 

Función. Calcula el arco cuya tangente es la (expresión numérica). 

Obsérvese que se puede utilizar DEG y RAD para hacer que el resultado se dé en grados 
o en radianes, respectivamente. 

Palabras clave asociadas: COS, DEG, RAD, SIN, TAN. 


AUTO 

AUTO Knuiero de linea)!!, (increiento)í 
AUTO 100,50 

Orden. Genera números de línea AUTOmáticamente. El parámetro opcional (número 
de línea) especifica en qué número debe empezar la numeración. Si se lo omite, el orde¬ 
nador genera números de línea a partir del 10. 

El parámetro opcional (incremento) especifica el salto que debe haber entre cada línea 
y la siguiente. Si se lo omite, el ordenador genera números de línea espaciados de 10 
en 10. 


Lista completa de las palabras clave del BASIC de AMSTRAD 


3/5 


Si se genera un número de línea que ya ha sido utilizado, el ordenador la muestra en 
la pantalla y entonces se la puede editar, si es necesario. La línea editada sustituye a 
la que está en la memoria en el momento de pulsar [RETURN], 

Para interrumpir el proceso de numeración automática, pulse [ESC]. 

Palabras clave asociadas: ninguna. 


BIN$ 

BIN$ ((expresión entera)!, (expresión entera)]) 

PRINT BIN$ < 64, 3 ) 

01000000 

Función. Produce una cadena de dígitos binarios que representan el valor de la primera 
(expresión entera), utilizando el número de dígitos binarios especificados por la segun¬ 
da <expresión entera) (margen de 0 a 16). Si el número de dígitos especificado es mayor 
que el necesario, la expresión resultante se completa con ceros por la izquierda; si el 
número de dígitos especificado es demasiado pequeño, la expresión resultante no se 
trunca, sino que contiene todos los dígitos que sean necesarios. 

La <expresión entera) que se va a convertir en binario debe tener un valor comprendi¬ 
do entre -32768 y +65535. 

Palabras clave asociadas: DEC$, HEX$, STR$. 


BOEDER 

BORDER <co1of>! , <color>] 

10 REM 729 combinaciones para el borde! 

20 SPEED INK 5,5 

30 FOR a=0 TO 26 

40 FOR b=0 TO 26 

50 BORDER a,b:CLS:LOCATE 14,13 

60 PRINT "border M ;a»",";b 

70 FOR t=l TO 500 

80 NEXT t,b,a 

run 


Orden. Cambia el color del borde de la pantalla. Si se especifican dos colores, el del 
borde alterna entre ambos, a una velocidad que se puede regular con la orden SPEED 
INK. El margen de colores es de 0 a 26. 

Palabras clave asociadas: SPEED INK. 
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BREAK 


Véase ON BREAK COIMT, ON BREAK GOSUB, ON BREAK STOP. 

CALL 

CALL (expresión de dirección de teioria)!, (lista de:(paraietro>] 

CALL 0 

Orden. Permite invocar desde BASIC una rutina escrita en código de máquina. El 
ejemplo anterior provoca la reinicialización de la máquina. 

Esta orden no debe ser utilizada si no se sabe cuáles son sus efectos. 

Palabras clave asociadas: UNT. 


CAT 

CAT 


CAT 

Orden. Da un catálogo del contenido del disco. Presenta en la pantalla, en orden alfa- 
numérico, los nombres completos de todos los ficheros, junto con las respectivas longi¬ 
tudes (en unidades de Kbytes, redondeadas por exceso). También se muestra el espacio 
libre que queda en el disco, así como las identificaciones de la unidad y del usuario. 

Esta orden no afecta al programa actualmente residente en la memoria. 

Palabras clave asociadas: LOAD, RUN, SAVE. 


CHAIN 

CHAIN (noibte de fichero)!, (expresión de nuiero de linea)] 

CHAIN "programa.bas",350 

Orden. Lee un programa grabado en disco y lo carga en la memoria reemplazando al 
actual. Inicia la ejecución del nuevo programa, bien desde el principio, bien desde una 
línea especificada por el parámetro opcional (expresión de número de línea). 

Los ficheros protegidos (grabados con SAVE ... ,p) se pueden cargar y ejecutar con 
esta orden. 

Palabras clave asociadas: CHAIN MERGE, LOAD, MERGE. 
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CHAIN MERGE 


CHAIN MERGE (noibre de fichero)!, <expresion de nuiero de linea)] 

I, DELETE <iargen de nuieros de linea)] 

CHAIN MERGE "nuevopro.bas", 750,DELETE 400-680 

Orden. Lee un programa grabado en el disco, lo carga en la memoria mezclándolo con 
el actual y empieza a ejecutar el programa resultante, bien desde el principio, bien des¬ 
de una línea especificada por el parámetro opcional (expresión de número de línea). 
Si se desea borrar parte del programa original antes de iniciar la carga del nuevo, se 
puede utilizar la opción DELETE (margen de números de línea). 

Obsérvese que las líneas del programa que se carga sustituyen a las que tuvieran el mis¬ 
mo número en el programa original. 

Los ficheros protegidos (grabados con SAVE ... ,p) no se pueden cargar con esta 
orden. 

Palabras clave asociadas: CHAIN, DELETE, LOAD, MERGE. 


CHR$ 

CHR$ ((expresión entera)) 

10 FOR x=32 TO 255 
20 PRINT xSCHRí(x), 

30 NEXT 
run 

Función. Convierte la (expresión entera), que tiene que estar en el margen de 0 a 255, 
en su carácter equivalente. El conjunto de caracteres del AMSTRAD se muestra en la 
parte 3 del capítulo titulado ‘Para su referencia ...’. 

Obsérvese que los números 0 a 31 generan caracteres de control; por esa razón los he¬ 
mos excluido del ejemplo anterior. 

Palabras clave asociadas: ASC. 


CINT 

CINT ((expresión nuierici)) 

10 n=1.9999 
20 PRINT CINT(n) 
run 
2 
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Función. Aproxima el valor de la (expresión numérica) a un número entero compren¬ 
dido en el margen de -32768 a +32767. 

Palabras clave asociadas: CREAL, FIX, INT, ROUND, UNT. 


CLEAR 

CLEAR 

CLEAR 

Orden. Borra todas las variables (iguala a cero las numéricas y a la cadena vacía las 
literales). Además, se abandonan los ficheros que estén abiertos, se borran todas las 
listas y funciones definidas por el usuario y BASIC retorna al modo de radianes para 
el cálculo de funciones trigonométricas. 

Palabras clave asociadas: ninguna. 


CLEAR INPUT 


CLEAR 

INPUT 


10 

CLS 


20 

PRINT 

"Teclee 1 

30 

FOR t = 

1 TO 3000 

40 

NEXT 


50 

CLEAR 

INPUT 

ruri 



ahora 


II 


Orden. Desecha todos los caracteres tecleados antes y que todavía estén en el tampón 
del teclado; es decir, borra el tampón del teclado. 

Para observar el efecto de esta orden, ejecute el programa ejemplo y escriba letras 
cuando el ordenador se lo pida. Borre luego la línea 50 y vuelva a ejecutar el programa. 

Palabras clave asociadas: INKEY, INKEY$, JOY. 


CLG 

CLG [(tinta)] 

LOCATE 1,20 
CLG 3 
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Orden. Borra la pantalla gráfica, dejándola del color del papel de gráficos. Si se especi¬ 
fica la <tinta), el papel de gráficos toma ese color. 

Palabras clave asociadas: CLS, GRAPHICS PAPER, INK, ORIGIN. 


CLOSEIN 

CLOSEIN 

CLOSEIN 

Orden. Cierra el fichero de disco que esté abierto en dirección de entrada (si lo hay). 
(Véase OPENIN.) 

Palabras clave asociadas: EOF, OPENIN. 


CLOSEOUT 

CLOSEOUT 

CLOSEOUT 

Orden. Cierra el fichero de disco que esté abierto en dirección de salida (si lo hay). 
(Véase OPENOUT.) 

Palabras clave asociadas: OPENOUT. 


CLS 


CLS [«(expresión de ituiero de canal)] 

10 PAPER «2,3 
20 CLS «2 
run 

Orden. Borra la ventana (canal de pantalla) especificada, tiñéndola del color del papel. 
Si no se especifica ninguna <expresión de número de canal), el ordenador borra la pan¬ 
talla #0. 

Palabras clave asociadas: CLG, INK, PAPER, WINDOW. 
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CONT 


CONT 

CONT 

Orden. Reanuda la ejecución del programa cuando éste ha sido interrumpido, bien por¬ 
que se ha pulsado la tecla [ESC] dos veces, bien porque el programa ha encontrado 
la instrucción STOP. CONT solamente puede continuar el programa en el supuesto de 
que no se lo haya modificado durante la interrupción y de que no se trate de un progra¬ 
ma protegido. 

Palabras clave asociadas: STOP. 

COPYCHR$ 

COPYCHRÍ (#<expresi6n de auaero de canal)) 

10 CLS 

20 PRINT "Extremo superior izquierdo" 

30 LOCATE 1,1 
40 a*¡=COPYCHR*<#0) 

50 LOCATE 1,20 
60 PRINT a* 
run 

Función. Lee el carácter que hay en la posición actual del cursor; la ventana tiene que 
ser especificada. El programa ejemplo lee el carácter que está en la posición 1,1 y lo 
escribe en la posición 1 , 20 . 

Si el carácter no es reconocible, esta función genera la cadena vacía. 

Palabras clave asociadas: LOCATE. 


eos 


COS ((expresión America)) 

DE6 

PRINT COS(45) 

0.707106781 

Función. Calcula el coseno de la <expresión numérica). 

Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, DEG, RAD, SIN. 
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CREAL 


CREAL ((expresión naierica)) 

10 a=PI 

20 PRINT CINT(a) 

30 PRINT CREAL(a) 
run 
3 

3.14159265 

Función. Convierte el valor de la (expresión numérica), cualquiera que sea su tipo, 
en un número real. 

Palabras clave asociadas: CINT. 


CURSOR 

CURSOR [(comutador del sisteia)]!, (concitador del usuario)] 

10 CURSOR 1 

20 PRINT "pregunta?"; 

30 a$=INKEY$:IF a$="" THEN 30 
40 FRINT a$ 

50 CURSOR 0 
run 

Orden. El cursor puede ser activado o inhibido por dos conmutadores: el del sistema 
y el del usuario. Esta orden controla los dos conmutadores. Los parámetros pueden 
ser 0 (inhibido) o 1 (activado). En la instrucción INKEY$ el cursor está normalmente 
oculto, pero en el programa ejemplo ha sido activado por el valor 1 del parámetro 
(conmutador del sistema) en la línea 10. 

Para que el cursor sea visible tienen que estar a 1 los dos conmutadores. El ordenador 
activa automáticamente el conmutador del sistema para la instrucción IISIPUT, pero lo 
desactiva para INKEY$. 

Es conveniente ocultar el cursor antes de escribir texto en la pantalla. 

Se puede omitir cualquiera de los parámetros, pero no los dos. Cuando se omite uno 
de los parámetros, la situación del correspondiente conmutador no se modifica. 

Palabras clave asociadas: LOCATE. 
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DATA 


DATA <lista ie:(constante) 

10 FOR x— 1 TO 4 

20 READ nombre$,ape 11 ido* 

30 PRINT "Don nombre*;“ "japellido* 

40 NEXT 

50 DATA Manuel,González,Daniel,Garcia 
60 DATA Fe 1ipe,Revi 11 a,Ernesto,Diaz 
r un 

Orden. Identifica las líneas en las que están contenidos los datos que pueden ser leídos 
con la instrucción READ. Cada vez que se lee un dato, el ‘puntero’ pasa a señalar el 
siguiente elemento de la lista. Se puede utilizar la instrucción RESTORE para hacer que 
el puntero señale una línea de datos determinada. 

En la parte 2 del capítulo titulado ‘Cuando usted guste ... ’ daremos más amplia infor¬ 
mación sobre los datos de este tipo. 

Palabras clave asociadas: READ, RESTORE. 


DEC$ 

DEC* ((expresión rmnerica), (plantilla ie (ornato)) 

PRINT DEC*(10E7,"fcft#########,.##") 

P.10,000,000.00 

Función. Produce una representación en forma de cadena decimal de la <expresión 
numérica) utilizando la <plantilla de formato) especificada. 

La plantilla de formato sólo puede contener los caracteres siguientes: 

+ - ft * # , . ^ 

La utilización de estos ‘especificadores de formato’ se describe en PRINT USING. 
Palabras clave asociadas: BIN$, HEX$, PRINT USING, STR$. 
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DEF FN 


DEF FN<no»bre de la función)! ((paruetros de loria)) 1 =<expresion> 

10 t=TIME/300 

20 DEF FNreloj = INT(TIME/300-t) 

30 EVERY 100 GOSUE 50 
40 GOTO 40 

50 PRINT "el programa se ejecuto hace"; 

60 PRINT FNreloj;"segundos" 

70 RETURN 
run 

Orden. BASIC permite que el programa defina y utilice funciones. DEF FN realiza la 
primera parte de ese mecanismo: crea una función específica del programa; una vez 
definida, la función se maneja de la misma forma que las funciones intrínsecas de BASIC. 

(Nótese en el ejemplo anterior que el valor de la función FNreloj sigue siendo actualiza¬ 
da ininterrumpidamente, aunque se imponga una pausa al programa pulsando [ESC] 
dos veces para luego reanudarlo con CONT.) 

Palabras clave asociadas: ninguna. 


DEFINT 

DEFINT (lista de:(uargen de letras! 

10 DEFINT n 
20 numero=123.456 
30 PRINT numero 
run 
123 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explícito de tipo (! % $), el ordenador considera que es del tipo implícito. 
Esta orden hace que el tipo implícito sea ‘variable entera’. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especifi¬ 
car una lista: 

DEFINT a, b, c 

o bien un margen de iniciales: 

DEFINT a-z 

Palabras clave asociadas: DEFREAL, DEFSTR. 
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DEFREAL 


DEFREAL (lista deKiargen de letras» 

DEFREAL x,a--f 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explícito de tipo (! % $), el ordenador considera que es del tipo implícito. 
Esta orden hace que el tipo implícito sea ‘variable real’. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especifi¬ 
car una lista: 

DEFREAL a,b,c 

o bien un margen de iniciales: 

DEFREAL a-z 

Palabras clave asociadas: DEFINT, DEFSTR. 


DEFSTR 

DEFSTR (lista dctiarge# de letras) 

10 DEFSTR rt 
20 nombre="Am5trad" 

30 PRINT nombre 
r un 

Amstrad 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explícito de tipo (! % $), el ordenador considera que es del tipo implícito. 
Esta orden hace que el tipo implícito sea ‘variable literal’. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especifi¬ 
car una lista: 

DEFSTR a,b,c 

ó bien un margen de iniciales: 

DEFSTR a-z 

Palabras clave asociadas: DEFINT, DEFREAL. 


Lista completa de las palabras clave del BASIC de AMSTRAD 


3/15 




DEG 


DE6 


DEG 

Orden. Hace que BASIC considere que los valores de los arcos que intervienen en los 
cálculos trigonométricos están expresados en grados, no en radianes. La situación im¬ 
plícita para las funciones SIN, COS, TAN y ATN es la inversa: radianes. DEG cambia 
de radianes a grados; las órdenes RAD, NEW, CLEAR, LOAD, RUN, etc. cambian 
de grados a radianes. 

Palabras clave asociadas: ATN, COS, RAD, SIN, TAN. 


DELETE 

DELETE íiargen de nuieros de linea) 

DELETE 100-200 

Orden. Borra la instrucción o grupo de instrucciones especificado por (margen de nú¬ 
meros de línea). 

Si se omite el primer número de (margen de números de línea), se entiende ‘desde el 
principio del programa hasta ... ’; si se omite el segundo número, se entiende ‘... has¬ 
ta el final del programa’. Así, 

DELETE -200 

borra las primeras líneas del programa, hasta la 200 inclusive. En cambio, 

DELETE 50- 

borra desde la línea 50 en adelante. Finalmente, 

DELETE 

borra el programa completo. 

Palabras clave asociadas: CHAIN, MERGE, RENUM. 
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DERR 


DERR 

LOAD "xyz.abc" 

XYZ .ABC not -found 

Ready 

PRINT DERR 
146 

Función. Toma como valor el último código de error detectado por el sistema de archi¬ 
vo en disco. Se puede utilizar el valor de DERR para determinar qué error se ha produ¬ 
cido. Véase en el capítulo ‘Para su referencia ... ’ la lista de los mensajes de error. 

Palabras clave asociadas: ERL, ERR, ERROR, ON ERROR GOTO, RESUME. 


DI 


DI 

10 cls:tag:every 10 gosub 90 

20 X1=RND*320:X2=RND*320 
30 Y=200+RND*200:C$=CHR*(RND*255) 

40 FOR X=320-X1 TO 320+X2 STEP 4 
50 DI 

60 MOVE 320,0, HMOVE X-2,Y:MOVE X,Y 
70 PRINT " ";C*;:FRAME 

80 ei:next:goto 20 

90 MGVE 320,0:DRAW X+8,Y-16,0:RETURN 
run 

Orden. Inhibe interrupciones (a excepción de [ESC]) hasta que se las habilite explícita¬ 
mente con El o implícitamente con el RETURN en el que termina la subrutina invocada 
como consecuencia de la interrupción. 

Nótese que al entrar en una rutina de interrupción se inhiben automáticamente todas 
las interrupciones de prioridad igual o inferior. 

Esta orden se utiliza para asegurar que el programa funcione sin interrupción; por 
ejemplo, cuando dos rutinas están compitiendo por el uso de recursos comunes. En el 
ejemplo anterior, el programa principal y la subrutina de interrupción están compitien¬ 
do por el uso de la pantalla gráfica. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más amplia información 
a este respecto. 

Palabras clave asociadas: AFTER, El, EVERY, REMAIN. 
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DIM 


DIM <lista de:<¥ifiable índexada) 

10 CLS 

20 DIM amigo$<5> , tele-fono$(5> 

30 FOR n=l TO 5 

40 PRINT “Amigo numero:";n 

50 INPUT "Nombre “jamigoí(n) 

60 INPUT “Tele-fono “ i tele-fono* (n) 

70 PRINT 
80 NEXT 

90 FOR n=l TO 5 

100 PRINT n;amigo$(n), tele-fono$(n) 

110 NEXT 
r-un 

Orden. DIMensiona listas. DIM hace una reserva de espacio para los elementos de la 
lista y especifica cuál va a ser el máximo valor del indice. BASIC requiere que se le 
informe del tamaño que debe reservar para las listas; sin embargo, permite el manejo 
de listas no dimensionadas (es decir, no declaradas con una orden DIM) a condición 
de que el índice no sobrepase el valor 10. 

Una lista es una ‘variable indexada’, lo que quiere decir que se utiliza un solo nombre 
de variable para representar varios elementos; cada elemento está identificado por su 
‘índice’. Las listas pueden ser controladas fácilmente mediante bucles de tipo FOR ... 
NEXT, identificando el índice con la variable del contador del bucle. 

Obsérvese que el valor mínimo del índice (esto es, el primer elemento utilizable) es el 
cero. 

Un vector es una lista monodimensional. También se pueden utilizar listas multidimen¬ 
sionales {matrices). Por ejemplo, una lista tridimensional se dimensionaría con 

DIM pos ici on$ ( 20,20,20 ) 

y un elemento concreto sería 

posicion$(4,5,6) 

Palabras clave asociadas: ERASE. 
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DRAW 


DRAW (coordenada x>, (coordenada y)l, [(tinta)]! , (iodo de tinta)]] 

10 MODE 0 :BORDER 0:PAPER 0iINK 0,0 
20 x=RND*640:y=RND*400:2=RND*15 
30 DRAW x,y,2 
40 GOTO 20 
run 

Orden. Dibuja en la pantalla gráfica una recta que va desde la posición actual del cur¬ 
sor gráfico hasta el punto de coordenadas x, y especificadas. Se puede especificar el co¬ 
lor de <tinta) con el que se desea dibujar la recta (margen: O a 15). 

El <modo de tinta) es opcional y determina el modo de interacción entre la tinta con 
que se dibuja y la que ya está en la pantalla gráfica. Los cuatro modos son los 
siguientes: 

O Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAWR, GRAPHICS PEN, MASK. 


DRAWR 

DRAWR (incremento de x>, (incremento de y>[, [<tinta)H, (modo de tinta)]] 

10 CLS:PRINT "escalera" 

20 MOVE 0,350:FOR n=l TO 8 

30 DRAWR 50,0 

40 DRAWR 0,-50 

50 NEXT:MOVE 343,0:FILL 3 

60 GOTO 60 

run 

Orden. Dibuja en la pantalla gráfica una recta que va desde la posición actual del cur¬ 
sor gráfico hasta el punto especificado en coordenadas relativas por (incremento de 
x) e (incremento de y). Se puede especificar el color de (tinta) con el que se desea 
dibujar (margen: O a 15). 

El (modo de tinta) es opcional y determina el modo de interacción entre la tinta con 
que se dibuja y la que ya está en la pantalla gráfica. Los cuatro modos son los 
siguientes: 
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O Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAW, GRAPHICS PEN, MASK. 


EDIT 

EDIT <niiiero de linea) 

EDIT 20 

Orden. Escribe en la pantalla la línea especificada por (número de línea) y la deja dis¬ 
puesta para ser editada, con el cursor sobre ella. 

Palabras clave asociadas: AUTO, LIST. 


El 


El 


El 

Orden. Habilita interrupciones que hayan sido inhibidas previamente con DI. 

Si se inhiben las interrupciones en una subrutina de interrupción, BASIC las habilita 
cuando encuentra el RETURN del final de la subrutina. 

En la parte 2 del capítulo titulado ‘Cuando usted guste ... ’ daremos más amplia infor¬ 
mación acerca de las interrupciones. 

Palabras clave asociadas: AFTER, DI, EVERY, REMAIN. 


ELSE 

(Véase IF.) 


END 

END 


END 
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Orden. Termina la ejecución del programa y devuelve el ordenador al modo directo. 
En un mismo programa se pueden incluir varias órdenes END; se supone un END im¬ 
plícito después de la última línea del programa. 

Palabras clave asociadas: STOP. 


ENT 


ENT <B«ero de envolvente)! , (sección de envolvente)!!, (sección de envolvente)] 
l, (sección de envolvente)!!, (sección de envolvente)! 

t, (sección de envolvente)! 


10 ENT 1,10,-50,10,10,50,10 
20 SOUND 1,500,200,10,,1 
run 

Orden. Define la características de la envolvente de tono especificada por < número de 
envolvente) (margen: de 1 a 15) e invocada como (envolvente de tono) en la orden 
SOUND. Si el (número de envolvente) es negativo (margen de - 1 a - 15), la envol¬ 
vente se repite hasta el final de la (duración) especificada en la orden SOUND. 

Cada (sección de envolvente) puede constar de 2 o 3 parámetros. 

Si se utilizan 3 parámetros, tienen el significado siguiente: 

(suero de escalones), (altura de cada escalón), <tie*po de pansa) 

Parámetro 1: (número de escalones) 

Este parámetro especifica en cuántas etapas queremos que la nota evolucione a lo largo 
de la duración de la sección de la envolvente. Por ejemplo, si una sección de la nota 
ha de durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en 
tal caso, el parámetro (número de escalones) tendrá que ser 10. 

El margen de este parámetro es de 0 a 239. 


Parámetro 2: (altura de cada escalón) 

En cada etapa, el tono puede variar con respecto al de la anterior en un número de 
unidades comprendido entre -128 y +127. Las variaciones negativas representan 
aumentos del tono (tono más agudo); las variaciones negativas reducen el tono (tono 
más grave). El valor mínimo del período de tono es 0. En el capítulo ‘Para su refe¬ 
rencia ... ’ se da la lista completa de los periodos de tono. 
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Parámetro 3: <tiempo de pausa) 

Este parámetro especifica la duración de cada escalón (intervalo entre cada dos saltos) 
en unidades de centésimas de segundo. El margen de valores es de 0 a 255; esto significa 
que la duración máxima de cada escalón es de 2.56 segundos (el 0 se considera como 

256). 

Si se utilizan 2 parámetros, su significado es el siguiente: 

<periodo de tono), (tieipo de pausa) 

Parámetro 1: (periodo de tono) 

Este parámetro da un nuevo valor absoluto del periodo de tono. (Véase el parámetro 
2 de la orden SOUND.) 


Parámetro 2: (tiempo de pausa) 

Este parámetro especifica la duración de escalón en unidades de centésimas de segun¬ 
do. El margen de valores es de 0 a 255, es decir, el valor máximo es 2.56 segundos, 
ya que el 0 se considera como 256. 


General 

La suma de todos los (tiempos de pausa) no debe ser mayor que el parámetro 
(duración) de la orden SOUND; de lo contrario, el sonido habrá concluido antes de 
que se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador 
ignora el resto del contenido de la envolvente.) 

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
la suma de todos los (tiempos de pausa), la nota continuará sonando aunque se hayan 
terminado los escalones de la envolvente de tono, y lo hará con el tono correspondiente 
al de la última etapa de la envolvente. 

En una orden ENT se puede definir un máximo de 5 (secciones de envolvente) (cada 
una de las cuales puede constar de 2 o 3 parámetros). 

La primera etapa de una envolvente de tono se ejecuta inmediatamente. 

Cada vez que se define una envolvente de tono, se anula la definición anterior. 

Si se define un (número de envolvente) sin especificar parámetros para ninguna de sus 
secciones, se anula la definición anterior. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información sobre 
las envolventes de tono. 

Palabras clave asociadas: ENV, SOUND. 
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ENV 


ENV (nuiero de envolvente)!, (sección de envolvente)!!, (sección de envolvente)] 
(, (sección de envolvente)]!, (sección de envolvente)] 
!, (sección de envolvente)] 


10 ENV 1,15,-1,10,15,1,10 
20 SOUND 1,200,300,15,1 
run 

Orden. Define las características de la envolvente de volumen especificada por (núme¬ 
ro de envolvente) (margen: de 1 a 15) e invocada como (envolvente de volumen) en 
la orden SOUND. 

Cada (sección de envolvente) puede constar de 2 o 3 parámetros. 

Si se utilizan 3 parámetros, tienen el significado siguiente: 

(nuaero de escalones), (altura de cada escalón), (tieapo de pausa) 


Parámetro 1: (número de escalones) 

Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de 
completar la sección de la envolvente. Por ejemplo, si una sección de la nota ha de du¬ 
rar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal caso, 
el parámetro (número de escalones) será 10 . 

El margen de este parámetro es de 0 a 127. 


Parámetro 2: (altura de cada escalón) 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un número 
de unidades comprendido entre 0 y 15. Estos 16 niveles de sonido son los mismos que 
se definen en la instrucción SOUND. Sin embargo, el margen del parámetro (altura 
de cada ecalón) es de - 128 a + 127; el nivel del volumen vuelve 0 cada vez que sobre¬ 
pasa el 15. 


Parámetro 3: (tiempo de pausa) 

Este parámetro especifica la duración de cada escalón en unidades de centésimas de se¬ 
gundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de 
cada escalón es de 2.56 segundos (el 0 se considera como 256). 
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Si se utilizan 2 parámetros, su significado es el siguiente: 

(envolvente de hartare), (periodo de envolvente) 

Parámetro 1: <envolvente de hardware) 

Este parámetro especifica el valor que se debe enviar al registro de forma de envolven¬ 
tes del generador de sonido. 


Parámetro 2: <periodo de envolvente) 

Este parámetro especifica el valor que se debe enviar a los registros de periodo de envol¬ 
ventes del generador de sonido. 

Para utilizar las envolventes de hardware es necesario que el usuario conozca el funcio¬ 
namiento interno del generador de sonido. De no ser así, le recomendamos que utilice 
las envolventes definidas por programa, incorporado un (tiempo de pausa) adecuado. 


General 

La suma de todos los (tiempos de pausa) no debe ser mayor que el parámetro 
(duración) de la orden SOUND; de lo contrario, el sonido habrá concluido antes de 
que se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador 
ignora el resto del contenido de la envolvente.) 

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
la suma de todos los (tiempos de pausa), la nota continuará sonando aunque se hayan 
terminado los escalones de la envolvente de tono, y lo hará con nivel de volumen igual 
al de la última etapa de la envolvente. 

En una orden ENV se puede definir un máximo de 5 (secciones de envolvente) (cada 
una de las cuales puede constar de 2 o 3 parámetros). 

La primera etapa de una envolvente de volumen se ejecuta inmediatamente. 

Cada vez que se define una envolvente de volumen, se anula la definición anterior. 

Si se define un (número de envolvente) sin especificar parámetros para ninguna de sus 
secciones, se anula la definición anterior. 

En la parte 2 del capítulo ‘Cuando usted guste ...’ daremos más información sobre 
las envolventes de volumen. 

Palabras clave asociadas: ENT, SOUND. 
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EOF 


EOF 

10 OPENIN "exl.bas" 

20 WHILE NOT EOF 
30 LINE INPUT #9,a$ 

40 PRINT a* 

50 WEND 
60 CLOSEIN 
run 

Función. Comprueba si se ha alcanzado el final del fichero (End of File). Da el valor 
- 1 (verdadero) si no hay ningún fichero abierto o si se ha alcanzado el final del fiche¬ 
ro; da 0 (falso) en caso contrario. 

Palabras clave asociadas: OPENIN, CLOSEIN. 


ERASE 

ERASE <lista de:<«o«bre de variable) 

DIM a(100) ,b*¡(100) 

ERASE a,b* 

Orden. Borra el contenido de una o varias listas y libera el espacio de memoria ocupado 
por ellas. 

Palabras clave asociadas: DIM. 


ERL 


ERL 

10 ON ERROR GOTO 30 
20 GOTO 1000 

30 PRINT "Error- en la linea"; ERL 

40 END 

run 

Función. Da el número de la línea en la que se ha detectado el último error. En el pro¬ 
grama ejemplo, el error está en la línea 20, y éste es el número generado por ERL en 
la línea 30. 

Palabras clave asociadas: DERR, ERR, ERROR, ON ERROR GOTO, RESUME. 
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ERR 


ERR 


GOTO 500 

Line does not exist 
Ready 
PRINT ERR 
3 

Función. Da el número del último error detectado. En el capítulo titulado ‘Para su 
referencia ... se da la lista de los mensajes de error. El programa ejempo muestra que 
el error número 8 es 'Line does not exist' (“no existe esa línea”). 

Palabras clave asociadas: DERR, ERL, ERROR, ON ERROR GOTO, RESUME. 


ERROR 

ERROR texpresion entera) 

10 IF INKEY*="" THEN 10 ELSE ERROR 17 
run 

Orden. Invoca el error de número especificado por (expresión entera). En el capítulo 
‘Para su referencia ... ’ se da la lista de los mensajes de error 1 a 32. BASIC trata el 
ERROR como si efectivamente lo hubiera detectado: salta a la rutina de gestión de 
errores (si la hay) y genera los valores correctos de ERR y ERL. 

La orden ERROR seguida de una (expresión entera) cuyo valor esté entre 33 y 255 sir¬ 
ve para crear mensajes de error a medida de las necesidades del programador, como 
ilustra el siguiente ejemplo: 

10 ON ERROR GOTO 100 

20 INPUT "Escriba una letra "{a* 

30 IF LEN(A*X>1 THEN ERROR 100 
40 GOTO 20 

100 IF ERR=100 THEN 110 ELSE 130 
110 PRINT CHR$<7) 

120 PRINT "Le dije que UNA letra!" 

130 RESUME 20 
run 

Palabras clave asociadas: ERL, ERR, ON ERROR GOTO, RESUME. 
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EVERY 


EVERY (periodo de tieipo)!, (eoiero de te«pori 2 ador)l GOSUB (nu»ero de linea) 

10 EVERY 50,1 GOSUB 30 
20 GOTO 20 
30 SOUND 1,20 
40 RETURN 
run 

Orden. Invoca una subrutina de BASIC a intervalos de tiempo regulares. El (periodo 
de tiempo) especifica el intervalo en unidades de 0.02 s (cintuentavos de segundo). 

El ( número del temporizador) (margen de 0 a 3) especifica cuál de los cuatro cronóme¬ 
tros se debe utilizar. El temporizador número 3 tiene la prioridad más alta; el número 
0 (que es el implícito), la más baja. 

Cada uno de los cuatro cronómetros puede tener una subrutina asociada. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más amplia información 
acerca de las interrupciones. 

Palabras clave asociadas: AFTER, REMAIN. 


EXP 


EXP ((expresión nimerica)) 

PRINT EXP(ó.876) 

968.743625 

Función. Calcula el número e elevado a la potencia dada por (expresión numérica). 
El número e es la base de los logaritmos neperianos, aproximadamente igual a 
2.7182818. 

Palabras clave asociadas: LOG. 
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FILL 


FILL (tinta) 

10 MODE 0 

20 FOR n=l TO 500 

30 PRINT"O"; 

40 NEXT 

50 colorpluma=2+RND*13 
60 FILL colorpluma 
70 GOTO 50 
run 

Orden. Rellena una región de la pantalla gráfica. Los límites de la región son rectas 
dibujadas con la tinta de la pluma de gráficos actual o con la tinta utilizada para relle¬ 
nar (margen de 0 a 15). 

El rellenado se realiza partiendo de la posición actual del cursor gráfico. Si esta posi¬ 
ción está en un límite, no se produce rellenado alguno. 

Palabras clave asociadas. GRAPHICS PEN. 


FIX 


FIX ((expresión nuierica)) 

PRINT FIX(9.99999) 

9 

Función. Da la parte entera de la <expresión numérica), ignorando su parte decimal. 
Palabras clave asociadas: CINT, INT, ROUND. 


FN 

Véase DEF FN. 
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FOR 


FOR (variable senci 1 la>=<priacipio> TO <fin> 1STEP <salto> 1 


10 

FOR n=2 

TO 

8 STEP 2 

20 

PRINT n; 



30 

NEXT n 



40 

PRINT ", 

y 

ocho dieciseis 

run 




Orden. Ejecuta el grupo de instrucciones comprendidas entre FOR y NEXT un número 
dado de veces, incrementando el valor de la variable de control (variable del contador) 
en un número especificado por (salto) desde (principio) hasta (fin). Si no se especifi¬ 
ca ningún valor de (salto) para STEP, se supone el 1. 

El (salto) puede ser una (expresión numérica). Si su valor es negativo, el parámetro 
(principio) tiene que ser mayor que el parámetro (fin), pues de no ser así la variable 
del contador no será modificada. 

Los bucles FOR ... NEXT pueden ser ‘anidados’, es decir, programados uno dentro 
de otro. 

No es necesario especificar el nombre de la variable a continuación de NEXT, ya que 
BASIC determina automáticamente a qué FOR corresponde cada NEXT ‘anónimo’. 

Palabras clave asociadas: NEXT, STEP, TO. 


FRAME 


FRAME 


10 

MODE 0 

20 

PRINT "sin FRAME" 

30 

TAG 

40 

MOVE 0,200 

50 

FOR x=0 TO 500 STEP 4 

60 

IF +=1 THEN FRAME 

70 

MOVE x,200 

80 

PRINT " "5CHR$(143); 

90 

NEXT 


100 IF -f = l THEN RUN 
110 CLS 
120 TAGOFF 

130 PRINT "con FRAME" 
140 *=1 
150 GOTO 30 
run 
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Orden. Sincroniza la escritura de caracteres gráficos en la pantalla con el retorno del 
haz en el monitor. El efecto global es hacer que el movimiento de símbolos por la pan¬ 
talla sea más suave, sin parpadeo ni discontinuidad. 

Palabras clave asociadas: TAG, TAGOFF. 


FRE 


FRE ( (expresión America)) 

FRE <(expresión literal)) 

PRINT FRE(0) 

PRINT FRE <”"> 

Función. Da el espacio libre de memoria utilizable por BASIC. En la forma FRE ("") 
realiza una ‘limpieza de memoria’ antes de dar el número de bytes libres. 

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 
64K. 

Palabras clave asociadas: HIMEM, MEMORY. 


GOSUB 

GOSUB (nuiero Je linea) 

GOSUB 210 

Orden. Invoca una subrutina de BASIC; es decir, reconduce el programa hacia el 
<número de línea) especificado. El final de la subrutina estará indicado por la orden 
RETURN; cuando se llega a ella, el programa retorna a la instrucción siguiente al 
GOSUB que invocó la subrutina. 

Palabras clave asociadas: RETURN. 


GOTO 

GOTO (nuiero de linea) 

GOTO 90 

Orden. Hace que la ejecución del programa salte a la línea especificada. 
Palabras clave asociadas: n ing una 
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GRAPHICS PAPER 


GRAPHICS PAPER <ti»ta> 


10 MODE 0 
20 MASK 15 
30 GRAPHICS 
40 DRAW 640, 
run 


PAPER 3 
0 


Orden. Especifica la (tinta) del papel de la pantalla de gráficos, es decir, el color de 
fondo sobre el que se dibujan los gráficos. Cuando se dibujan líneas continuas, el papel 
gráfico se hace invisible. En el programa ejemplo, la orden MASK hace que la recta 
que se dibuja sea discontinua y que, por lo tanto, el papel gráfico se pueda ver debajo 
de ella. 

La tinta del papel gráfico (margen de 0 a 15) se utiliza también como fondo de los ca¬ 
racteres que se escriben mediante TAG y para reteñir la pantalla gráfica cuando no se 
especifica otra tinta tras la instrucción CLG. 

Palabras clave asociadas: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF. 


GRAPHICS PEN 

GRAPHICS PEN I<tinta>H, <«o4o de foado>l 


10 

MODE 

0 

20 

GRAPHICS PEN 15 

30 

MOVE 

200,0 

40 

DRAW 

200,400 

50 

MOVE 

639,0 

60 

FILL 

15 

run 



Orden. Especifica la (tinta) con la que en lo sucesivo se van a dibujar rectas y puntos. 
El (modo de fondo) puede ser: 

0 Fondo opaco 
1 Fondo transparente 

(El fondo transparente afecta al papel gráfico de los caracteres escritos con TAG y a 
los espacios que quedan entre los trazos de las líneas discontinuas.) 

Se puede omitir cualquiera de los dos parámetros, pero no ambos. Si se omite un pará¬ 
metro, la característica controlada por él permanece inalterada. 

Palabras clave asociadas: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF. 


Lista completa de las palabras clave del BASIC de AMSTRAD 


3/31 



HEX$ 


HEX$ ((expresión entera)!, (anchura del caapo)]) 

PRINT HEX$(255,4) 

00FF 

Función. Produce una cadena literal que es la versión hexadecimal de la (expresión 
entera). La longitud de la cadena es la especificada por el parámetro (anchura de 
campo) (margen de 0 a 16). Si la longitud es demasiado pequeña, la cadena resultante 
no se trunca, sino que consta de todos los caracteres necesarios. 

El valor de la (expresión entera) tiene que estar comprendido entre - 32768 y + 65535. 

Palabras clave asociadas: BIN$, DEC$, STR$, UNT. 


HIMEM 

HIMEM 

PRINT HIMEM 
42619 

Función. Da la dirección de la posición de memoria más alta accesible a BASIC (la cual 
puede ser modificada con la orden MEMORY). 

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 
64K. 

Palabras clave asociadas: FRE, MEMORY, SYMBOL, SYMBOL AFTER. 


IF 

IF (expresión lógica) THEN (opcion) [ELSE (opcion)J 
10 MODE 1 

20 x=CINT(RND* 100 ) 

30 PRINT "Adivine mi numero (de 0 a 100)" 

40 INPUT n 

50 IF n<x THEN PRINT ni"es demasiado bajo ..." 
60 IF n >x THEN PRINT n;"es demasiado alto ...” 
70 IF n=x THEN 80 ELSE c=c+l:GOTO 40 
80 PRINT "Muy bien. Lo ha conseguido en"; 

90 PRINT c+1;"intentos!" 
run 
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Orden. Determina si la <expresión lógica) tiene el valor ‘verdadero’. Si es así, ejecuta 
la primera (opción). Si la (expresión lógica) tiene el valor ‘falso’, ejecuta la (opción) 
especificada después de ELSE; si no se ha incluido ELSE, BASIC pasa a la siguiente 
línea del programa. 

Las órdenes IF ... THEN ... se pueden anidar, sin más límite que la longitud de la 
línea. La orden (o la serie de órdenes anidadas) termina en el final de la línea, de modo 
que no es posible poner en la misma línea instrucciones que sean independientes de la 
orden IF ... THEIM .... 

Si la (opción) especificada consiste en un salto de línea, la orden puede tener cualquie¬ 
ra de las tres formas siguientes: 

IF a=l THEN 100 

IF a=l GOTO 100 

IF a=l THEN GOTO 100 


Palabras clave asociadas: ELSE, GOTO, THEN. 


INK 


INK <ti»ta>, <color>[, <color>l 


10 

MODE i: 

PAPER 0IPEN 1 

20 

FOR p=0 

TO 1 

30 

FOR i=0 

TO 26 

40 

INK p,i 


50 

LOCATE 

16,12:PRINT "ink" j 

60 

FOR t=l 

TO 400:NEXT t, i ,p 

70 

INK 0,1 

:INK 1,24:CLS 

run 



Orden. Asigna uno o dos colores a la (tinta) dada. El parámetro (tinta) es el número 
de referencia de la tinta (margen de 0 a 15), por el que se la cita en las órdenes PEN 
y PAPER. El primer (color) debe ser una expresión entera cuyo valor esté comprendi¬ 
do entre 0 y 26. Si se incluye el segundo (color), la tinta alterna entre los dos colores, 
a una velocidad que se controla con la orden SPEED INK. 

Palabras clave asociadas: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, 
SPEED INK. 
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INKEY 


INKEY ((expresio# entera)) 

10 IF INKEY (55 ) 032 THEN 10 
20 PRINT "Ha pulsado ISHIFT3 y V" 
30 CLEAR INPUT 
run 


Función. Examina el teclado para determinar si se ha pulsado una tecla determinada. 
La exploración se realiza una vez cada 0.02 s. 

Este función es útil para averiguar si se ha pulsado cierta tecla, comprobando si el nú¬ 
mero generado por INKEY es -1 (el cual es independiente de la situación de [SHIFT] 
y [CTRL]). 

El ejemplo anterior detecta cuándo se pulsa V (tecla número 55) con [SHIFT] y sin 
[CTRL], El esquema de la numeración de las teclas está grabado en la carcasa del orde¬ 
nador, a la derecha del teclado, e impreso en el capítulo titulado ‘Para su referencia 

Los valores generados por INKEY en función de la situación de las teclas [SHIFT] y 
[CTRL] son los siguientes: 


Valor generado 

[SHIFT] 

[CONTROL] 

Tecla especificada 

-1 

Indiferente 

Indiferente 

No pulsada 

0 

No pulsada 

No pulsada 

Pulsada 

32 

Pulsada 

No pulsada 

Pulsada 

128 

No pulsada 

Pulsada 

Pulsada 

160 

Pulsada 

Pulsada 

Pulsada 


Palabras clave asociadas: CLEAR INPUT, INKEY$, JOY. 


3/34 


Lista completa de las palabras clave del BASIC de AMSTRAD 


INKEY$ 


INKEY* 

10 CLS 

20 PRINT "Elija Si o No <S/N>:" 

30 a*=INKEY* 

40 IF a$="" THEN 30 
50 IF a$="s" OR a$="S" THEN 80 
60 IF a*="n" OR a$=”N" THEN 90 
70 GOTO 30 

80 PRINT "Ha respondido SI“:END 
90 PRINT "Ha respondido NO" 
run 

Función. Examina el teclado para determinar si se ha pulsado alguna tecla; de ser así, 
genera una cadena literal consistente en el carácter correspondiente a la tecla pulsada. 
Si no se ha pulsado ninguna tecla, genera la cadena vacía. En el programa ejemplo, 
las líneas 30 y 40 forman un bucle que no deja de repetirse mientras no se pulse una 
tecla. 

Palabras clave asociadas: CLEAR INPUT, INKEY. 


INP 


INP ((nunero de puerta)) 

PRINT INP (6cFF77) 

255 

Función. Da el valor de entrada leído en la dirección de entrada/salida especificada por 
el parámetro (número de puerta). 

Palabras clave asociadas: OUT, WAIT. 


INPUT 

INPUT E#(expresion de nuiero de canal), Hí IKcadena literal entre coiillasXseparador)] 

(lista de:(variable) 

10 MODE 1 

20 INPUT "Escriba los dos -factores (separados 
por una coma): ",a,b 
30 PRINT a;"por";b!"es"ia*b 
40 GOTO 20 
run 
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Orden. Capta una entrada de datos por el canal especificado (Por el #0, si no se especi¬ 
fica ninguno). 

El primer signo de punto y coma [;] es opcional e inhibe la función de retorno del ca¬ 
rro/avance de línea que de otra forma se produciría al terminar de ejecutarse la 
instrucción. 

El (separador) tiene que ser una coma o un punto y coma. El punto y coma hace que 
se escriba el signo de interrogación; la coma lo impide. 

Si el dato introducido es de tipo incorrecto (por ejemplo, cuando se escribe la letra O 
en lugar del número 0 en la captación de un dato numérico), BASIC responde con el 
mensaje: 

?Redo ■from start 

y cualquier otro texto que se haya programado. 

Toda introducción de datos a través del teclado debe terminar con la pulsación de la 
tecla [RETURIM], 

Palabras clave asociadas: LINE INPUT. 


INSTR 

INSTR ([<posicion de partida), Kcadena en la que se busca), (cadena buscada)) 

10 CLS:FOR n=l TO 26 

20 al-fabeto*=al-fabeto*+CHR*< n + 64) 

30 NEXT 

40 INPUT "Escriba una letra: ",a* 

50 b*=UPPER*(a*) 

60 PRINT b*>" es la letra numero "5 
70 PRINT INSTR(alfabeto*,b*)j 
80 PRINT "del al-f abeto": PRINT 
90 GOTO 40 
r un 

Función. Determina si la (cadena buscada) está contenida en la (cadena en la que se 
busca). Si lo está, da la posición del carácter de la (cadena en la que se busca) en el 
que se ha producido la primera coincidencia. Si no lo está, da el número 0. 

El parámetro opcional (posición de partida) indica en qué lugar de la ( cadena en la 
que se busca) debe empezar la búsqueda; debe ser una expresión entera que dé un valor 
comprendido entre 1 y 255. 

Palabras clave asociadas: ninguna. 
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INT 


INT ((expresión isuierica)) 

PRINT INT(-1.995) 

-2 

Función. Redondea el valor de la <expresión numérica) al número entero inferior, des¬ 
preciando la parte decimal. Da el mismo valor que FIX cuando el argumento es positi¬ 
vo, pero una unidad menos que FIX cuando el argumento es negativo y no entero. 

Palabras clave asociadas: CINT, FIX, ROUND. 


JOY 


JOY ({expresión entera)) 

10 PRINT “Para detener el programa "; 

20 PRINT “accione el joystick" 

30 IF JOY (0)00 THEN END 
40 GOTO 10 
r un 

Fundón. Lee bit a bit la situación del joystick especificado por la <expresión entera) 
(que debe valer O o 1). Genera un valor decimal según la siguiente tabla: 



Bit 

Decimal 

0 

Arriba 

1 

1 

Abajo 

2 

2 

Izquierda 

4 

3 

Derecha 

8 

4 

Disparo 2 

16 

5 

Disparo 1 

32 


Así, en el programa ejemplo, si el botón principal de disparo (Disparo 2) del primer 
joystick está accionado mientras la empuñadura está inclinada hacia la izquierda, la 
función JOY(O) da el número decimal 20, que es la suma de 16 (Disparo 2) más 4 
(Izquierda). 

En el capítulo ‘Para su referencia ... ’ daremos más información acerca de los 
joysticks. 

Palabras clave asociadas: CLEAR INPUT, INKEY. 
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KEY 


KEY <codigo expansible), (expresión literal> 

KEY ll,"border 13:paper 0:pen l:ink 0,13: 
ink 1,0:mode 2: 1 ist"+ CHR$ ( 13) 

y ahora pulse la tecla [INTRO]. 

Orden. Asigna la (expresión literal) al (código expansible) especificado. El sistema 
maneja 32 códigos expansibles, del 0 al 3T,identificados por los códigos de tecla 128 
a 159. Los códigos de tecla del 128 (generado por la tecla 0 del teclado numérico) al 

140 (generado por la tecla [INTRO] con [CONTROL]) tienen asignadas implícitamente 
las funciones de escribir los dígitos del 0 al 9, el punto, [RETURN] y RUN"[RETURN] 
(para operación con cinta), respectivamente, pero se les pueden asignar otras (expre¬ 
siones literales) diferentes con KEY. Los códigos expansibles 13 a 31 (códigos de tecla 

141 a 159) tienen asignada implícitamente la cadena vacía, pero se los puede expandir 
con KEY para luego asignarlos a teclas concretas con KEY DEF. 

El parámetro (código expansible) incluido en la orden KEY puede estar en el margen 
de 0 a 31, o bien en el margen 128 a 159 para reflejar directamente códigos de tecla. 
(Véase la ilustración del capítulo ‘Para su referencia ...’.) 

Las (expresiones literales) con las que se expandan los códigos expansibles pueden 
ocupar como máximo un total de 120 caracteres. Si se intenta sobrepasar ese límite se 
produce el error ‘improper argument’ (‘argumento inadecuado’, error número 5). 

Palabras clave asociadas: KEY DEF. 


KEY DEF 

KEY DEF (amero de teda), (repetir)!, <norial>[, (shriül, (control»]] 

KEY 159,"esta es la tecla TAB" 

KEY DEF 68,1,159 

Después de escribir estas órdenes, pulse la tecla [TAB]. 

Orden. Define los códigos de tecla que van a ser generados por la tecla de número espe¬ 
cificado. El (número de tecla) tiene que estar en el margen de 0 a 79 (véanse los núme¬ 
ros de tecla en el diagrama grabado a la derecha del teclado, o bien el esquema del capí¬ 
tulo ‘Para su referencia ...’). En la definición se pueden incluir los códigos de tecla 
que deben ser generados por la tecla cuando se la pulsa sola y cuando se la pulsa en 
combinación con [MAYS] y [CONTROL]. Todos estos parámetros son opcionales. 

El parámetro (repetir) puede tener los valores 1 (para que la tecla sea de repetición) 
o 0 (para que no lo sea). La velocidad de repetición se puede definir con SPEED KEY. 
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En el ejemplo anterior, primero se asigna una cadena literal al código 159 (equivalente 
al código expansible 31), y luego se especifica que la tecla número 68 (la tecla [TAB]) 
debe ser de repetición (1) y generar el código 159 cuando se la pulse sola. 

La situación normal se restaura, en el ejemplo anterior, mediante la orden: 

KEY DEF 68,0,9 

ya que el 9 es el código ASCII normalmente generado por [TAB]. 

Palabras clave asociadas: KEY, SPEED KEY. 


LEFT$ 

LEFTi ((expresión literal), (longitud deseada)) 

10 CLS 

20 ai="AMSTRAD" 

30 FOR n=l TO 7 
40 PRINT LEFTÍ<ai,n> 

50 NEXT 
run 

Función. Produce una cadena que consta del número de caracteres dado por (longitud 
deseada) (margen de 0 a 255) tomados de la izquierda de la (expresión literal). Si la 
longitud de la (expresión literal) es menor que la (longitud deseada), la cadena produ¬ 
cida es la (expresión literal) completa. 

Palabras clave asociadas: MID$, RIGHT$. 


LEN 


LEN <(expresión literal)) 

10 LINE INPUT “Escriba una -frase: ", ai 
20 PRINT "La frase tiene"; 

30 PRINT LEN (aí);"caracteres." 
run 

Función. Da la longitud de la (expresión literal), es decir, el número de caracteres de 
que consta ésta. 

Palabras clave asociadas: ninguna. 
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LET 


LET (variable)=(expre5iof>) 

LET x = 100 

Orden. Asigna un valor a una variable. Es una reliquia de las primeras versiones de 
BASIC, innecesaria en el BASIC de AMSTRAD. En el ejemplo anterior habría basta¬ 
do con escribir: 

x = 100 

Palabras clave asociadas: ninguna. 


LINE INPUT 

LINE INPUT [«(expresión de nuiero de canal), ][; lKcadena entre coiillasXseparador» 
(variable literal! 

10 LINE INPUT “Escriba una linea de texto: ",a$ 

20 CLS 

30 PRINT "La variable a* es igual a: " 

40 PRINT a$ 
r un 

Orden. Acepta la introducción de una línea entera de texto por el canal especificado 
(o por el #0, si no se especifica ninguno). El primer signo de punto y coma [;] es opcio¬ 
nal y, si se lo incluye, inhibe el retorno del carro/avance de línea que de otra forma 
se realizaría al terminar de ejecutarse la orden. 

El < separador > tiene que ser una coma o un punto y coma. El punto y coma hace que 
se escriba el signo de interrogación; la coma lo impide. 

La captación de datos a través del teclado debe terminar con la pulsación de la tecla 

[RETURN], 

La captación de datos por el canal #9 (disco o cinta) termina cuando se recibe un carác¬ 
ter de retorno del carro o cuando se han recibido 255 caracteres (lo que antes ocurra). 

Palabras clave asociadas: INPUT. 


LIST 

LIST [(urgen de nuieros de linee»!, «(expresión de nuiero de canal» 
LIST 100-1000,#1 
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Orden. Envía el listado de las líneas especificadas al canal especificado. El canal implí¬ 
cito es el #0. La impresora es el canal #8. La acción de listar se puede suspender mo¬ 
mentáneamente pulsando [ESC] una vez, tras lo cual se la puede reanudar pulsando 
la barra espaciadora o abandonar definitivamente pulsando [ESC] por segunda vez. 

Si se omite el primer número de (margen de números de línea), se entiende ‘desde el 
principio del programa hasta ...’; si se omite el segundo número, se entiende 
‘... hasta el final del programa’. Así, 

LIST -200 

lista las primeras líneas del programa, hasta la 200 inclusive. En cambio, 

LIST 50- 

lista desde la línea 50 en adelante. Finalmente, 

LIST 

lista el programa completo. 

Palabras clave asociadas: ninguna. 


LOAD 

LOAD ÍAOibre de fichero)!, texpresior. de dirección de aeioria)] 

LOAD "f icher a. xyz" ,Ec2AF8 

Orden. Lee un programa de BASIC grabado en disco y lo carga en la memoria, reem¬ 
plazando al actual. Si se especifica la (expresión de dirección de memoria) opcional, 
LOAD carga un fichero binario en esa dirección, en lugar de hacerlo en la dirección 
a partir de la cual se lo grabó. 

Los programas de BASIC protegidos no se pueden cargar por este método, pues el or¬ 
denador los borra inmediatamente de la memoria. Esos programas deben ser cargados 

con RUN o CHAIN. 

Palabras clave asociadas: CHAIN, CHAIN MERGE, MERGE, RUN, SAVE. 
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LOCATE 


LOCATE l#(expresion de nuiero de canal), Kcoordenada x>, {coordenada y) 

10 MODE 1 
20 FOR n=l TO 20 
30 LOCATE n,n 

40 PRINT CHR$<143)j"posicion"; 

50 PRINT n;",”in 

60 NEXT 

run 

Orden. Coloca el cursor de texto del canal indicado en la posición especificada por las 
coordenadas x,y. La posición 1,1 es el extremo superior izquierdo de la ventana. El 
canal #0 es el canal implícito. 

Palabras clave asociadas: WINDOW. 


LOG 


LOG < {expresión nuierica)) 

PRINT LOG ( 9999> 

9.21024037 

Función. Calcula el logaritmo natural o neperiano de la (expresión numérica), la cual 
debe ser mayor que cero. 

Palabras clave asociadas: EXP, LOGIO. 


LOGIO 

LOG 10((expresión nuierica)) 

PRINT LOG10(9999) 

3.99995657 

Función. Calcula el logaritmo decimal de la (expresión numérica), la cual debe ser ma¬ 
yor que cero. 

Palabras clave asociadas: EXP, LOG. 
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LOWER$ 


LOWERÍ ((expresión literal)) 

10 a$="OBSERVE COMO SE CONVIERTEN LAS LETRAS A “ 

20 PRINT LOWER$<a$ +"MINUSCULAS") 
run 

Función. Da una cadena literal que es copia de la (expresión literal) especificada, pero 
convirtiendo las letras mayúsculas en minúsculas y dejando inalterados los restantes ca¬ 
racteres. Esta función es útil en el proceso de datos que puedan contener minúsculas 
mezcladas con mayúsculas. 

Palabras clave asociadas: UPPER$. 


MASK 

MASK [(expresión entera)!!, (situación del priier punto)] 

10 MODE 0:INK 5,21:INK 8,16 
20 MOVE -100*RND,400*RND 
30 WHILE XPOS<640 
40 FOR x=l TO 8 
50 MASK 2t(8-x) 

60 DRAWR 32,0,x,l:MOVER -32,0 

70 NEXT 

80 MOVER 34,0 

90 WEND:GOTO 20 

run 

Orden. Define una ‘máscara’ o plantilla que se puede utilizar en el dibujo de rectas. 
La (expresión entera) (margen de 0 a 255) determina la situación de los diversos bits 
de cada grupo de 8 pixels adyacentes: 0 para pixel apagado, 1 para pixel iluminado. 

El parámetro (situación del primer punto) determina si el primer punto de la recta de¬ 
be ser iluminado (1) o no (0). 

Se puede omitir cualquiera de los dos parámetros, pero no ambos. La situación de la 
característica correspondiente al parámetro omitido permanece inalterada. 

Palabras clave asociadas: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN. 
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MAX 


MAX ({lista 4 p:( expresión nulifica)) 

10 n=66 

20 PRINT MAX(l f n.3,6,4,3) 
run 
66 

Función. Da el valor máximo de los incluidos en la <lista de:(expresión numérica). 
Palabras clave asociadas: MIN. 

MEMORY 

MEMORY (expresión de dirección de leaoria) 

MEMORY &20AA 

Orden. Determina el espacio de memoria utilizable por BASIC al fijar la dirección de 
su límite superior. 

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 
64K. 

Palabras clave asociadas: FRE, HIMEM, SYMBOL, SYMBOL AFTER. 

MERGE 

MERGE (noibre del fichero) 

MERGE ”nuevopro.bas" 

Orden. Lee un programa grabado en disco y lo superpone al actualmente almacenado 
en la memoria. 

Las líneas del programa leído se superponen y sustituyen a las que hubiera en el antiguo 
con el mismo número. 

Los ficheros protegidos (grabados con ,p) no pueden ser mezclados por este procedi¬ 
miento con el programa actual. 

Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD. 
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MID$ 


MID* ({expresión literal), (posición de partida)!, (longitud de la subcadena)]) 

10 MODE l:ZONE 3 

20 a*= "MASSACHUSETTS 11 

30 PRINT "Deletreame " 5 a* 

40 PRINT "Oale PRINT 

50 FOR n=l TO LEN(aí) 

60 PRINT MID*(a*,n, 1) , 

70 FOR t=l TO 700:NEXT t,n 
80 PRINT:PRINT 

90 INPUT “Ahora escriba usted otra palabra: ", a* 
100 GOTO 50 
r un 


Función. Genera una cadena literal copiada de la (expresión literal). El número de ca¬ 
racteres copiados es el dado por (longitud de la subcadena); la copia empieza en el 
carácter especificado por (posición de partida). Si no se especifica la (longitud de la 
subcadena), se copian todos los caracteres restantes, desde (posición de partida) hacia 
la derecha. 

Si la (posición de partida) es mayor que la longitud de la (expresión literal), se genera 
la cadena vacía. El margen de (posición de partida) es de 1 a 255. El de (longitud de 
la subcadena) es de 0 a 255. 

Palabras clave asociadas: LEFT$, RIGHT$. 


mid$ 

MID* ((variable literal),(posición de inserción)!, (longitud de cadena nueva)!) 

=(expresion de cadena nueva) 


10 a*="Amstrad" 

20 MID*(a*,3,2)="XX" 

30 PRINT a* 
run 

AmXXrad 

Orden. Reemplaza un número de caractres de la (variable literal), dado por (longitud 
de cadena nueva ), con caracteres tomados de ( expresión de cadena nueva). La sustitu¬ 
ción empieza en (posición de inserción). 

Obsérvese que cuando se utiliza MiD$ como orden, su argumento debe ser una (varia¬ 
ble literal); no vale, pues, una cadena literal constante tal como “hola”. 

Palabras clave asociadas: LEFT$, RIGHT$. 
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MIN 


MIN ((lista de:(expresión nu»erica>) 

F'RINT MIN(3,6,2.999, S, 9) 

2,999 

Función. Da el valor mínimo de los incluidos en la (lista de:<expresión numérica). 
Palabras clave asociadas: MAX. 


MOD 

(arguiento) MOD (argumento) 

PRINT 10 MOD 3 
1 

PRINT 10 MOD 5 
0 

Operador. Da el resto de la división entera del primer (argumento) por el segundo. 
Palabras clave asociadas: ninguna. 


MODE 

MODE (expresión entera) 

10 m=m+1:IF m>2 THEN m=0 
20 MODE m 

30 PRINT"Este es el modo"jm 
40 PRINT"Pulse una tecla." 

50 IF INKEY$= *" THEN 50 ELSE 10 
run 


Orden. Cambia el modo de pantalla (0, 1 o 2) y la borra tiñéndola con la tinta número 
0 (que puede no ser la tinta actualmente asignada al papel). Todas las pantallas de texto 
y gráficas se restauran (coincidentes con la pantalla completa); los cursores de texto 
y gráfico quedan en sus orígenes respectivos. 

Palabras clave asociadas: ORIGIN, WINDOW. 


3/46 


Lista completa de las palabras clave del BASIC de AMSTRAD 


MOVE 


MOVE (coordenada x>, (coordenada y>[ , [<tinta>H , (iodo de tinta)]] 
10 MODE 1:TAG 

20 x=RND*800-100:y=RND*430 

30 MOVE x,y 

40 PRINT "Estoy aquí"; 

50 GOTO 20 
r-un 


Orden. Lleva el cursor gráfico a la posición absoluta especificada por las coordenadas 
x,y. Se puede utilizar el parámetro opcional <tinta) para cambiar la tinta de la pluma 
gráfica (margen 0 a 15). 

El parámetro opcional <modo de tinta) determina la futura forma de interacción en 
tre la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos 
son: 

0 Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: MOVER, ORIGIIM, XPOS, YPOS. 


MOVER 

MOVER (incremento de x> , (incremento de y)l, [(tinta)!! , (modo de tinta)]] 

10 MODE l:TAG:MOVE 0,16 
20 PRINT "primero se sube”; 

30 FOR n=l TO 8 
40 MOVER -56,16 

50 PRINT "sube";INEXT:PRINT " y luego se baja”; 

60 FOR n=l TO 8 

70 MOVER -56,-16 

80 PRINT "baja"5:NEXT 

run 


Orden. Lleva el cursor gráfico a un punto cuya posición, referida a la actual, viene da¬ 
da por (incremento de x) e (incremento de y). Se puede utilizar el parámetro opcional 
(tinta) para cambiar la tinta de la pluma gráfica (margen de 0 a 15). 
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El parámetro opcional <modo de tinta) determina la futura forma de interacción entre 
la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

0 Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: MOVE, ORIGIN, XPOS, YPOS. 


NEW 

NEW 


NEW 

Orden. Borra el programa de BASIC actualmente residente en la memoria. No se pier¬ 
den las definiciones de teclas ni se modifican las características de la pantalla (MODE, 
PEN, PAPER, INK, etc.) ni se borra la pantalla. 

Palabras clave asociadas: ninguna. 


NEXT 

NEXT [(lista de:<variable>] 

10 FOR a=l TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a:BORDER b 

50 PRINT "pen n ;a;" border";b 

60 FOR c=l TO 500 

70 NEXT c,b,a 

r-un 


Orden. Señala el final del bucle FOR ... NEXT. La orden NEXT puede ser anónima 
o mencionar el nombre de la variable del FOR correspondiente. Obsérvese en el ejem¬ 
plo anterior que las variables de la lista deben estar en orden inverso al de sus corres¬ 
pondientes órdenes FOR, de modo que los bucles no queden solapados, sino anidados. 

Palabras clave asociadas: FOR, STEP, TO. 
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NOT 


NOT farguieisto) 

IF NOT 'juan'f'pepe' THEN PRIKT 'verdadero' ELSE PRINT 'falso' 
falso 

IF NOT 'gato'l'perro' THEN PRINT 'verdadero' ELSE PRINT 'falso' 
verdadero 
• • • 

PRINT NOT -1 

I 

PRINT NOT I 
-1 

Operador. Realiza la negación lógica sobre enteros inviertiendo todos los bits del 
argumento. 

En la parte 2 el capítulo ‘Cuando usted gusté ... ’ daremos más amplia información 
sobre las operaciones lógicas. 

Palabras clave asociadas: AND, OR, XOR. 


ON BREAK CONT 

ON BREAK CONT 

10 ON BREAK CONT 

20 PRINT "El programa CONTinua aunque usted 
intente interrumpirlo con [ESC3":PRINT 
30 FOR t=l TO 1000:NEXT:GOTO 20 
run 

Orden. Inhibe la posibilidad de interrumpir el programa pulsando la tecla [ESC], pues 
intercepta la interrupción y continúa la ejecución. Esta orden se debe utilizar con pre¬ 
caución, ya que el programa no podrá ser detenido más que reinicializando la máquina; 
grabe el programa antes de ejecutarlo. 

Dentro de un programa, esta orden se anula con ON BREAK STOP. 

Palabras clave asociadas: ON BREAK GOSUB, ON BREAK STOP. 
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ON BREAR GOSUB 


ON BREAK GOSUB tnuiefo de linea) 

10 ON BREAK GOSUB 40 

20 PRINT "Pr ogr ama runo i onando" 

30 GOTO 20 

40 CLS:PRIMT "Pulsando dos veces [ESC] 
50 PRINT"se invoca la subratina" 

60 POR t=l TO 2000:NEXT 
70 RETURN 
run 


Orden. Provoca el salto a la subrutina especificada por <número de línea) cuando se 
pulsa dos veces la tecla [ESC], 

Palabras clave asociadas: ON BREAK CONT, ON BREAK STOP, RETURN. 


ON BREAK STOP 

ON BREAK STOP (minero de linea) 

10 ON BREAK GOSUB 40 

20 PRINT "Programa -funcionando" 

30 GOTO 20 

40 CLS:PRINT "Pulsando dos veces [ESC] 

50 PRINT"se invoca la subrutina" 

60 FOR t=l TO 2000:NEXT 
65 ON BREAK STOP 
70 RETURN 
r un 

Orden. Anula las órdenes ON BREAK CONT y ON BREAK GOSUB, permitiendo así 
que el programa pueda ser interrumpido normalmente con la tecla [ESC], En el progra¬ 
ma ejemplo, la orden ON BREAK GOSUB sólo actúa una vez, pues la línea 65 de la 
rutina de interrupción la anula. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK GOSUB. 


3/50 


Lista completa de las palabras clave del BASIC de AMSTRAD 


ON ERROR GOTO 


ON ERROR GOTO (nuiero de linea) 

10 ON ERROR GOTO 60 

20 CLS: PRINT "Si detecto un error-, 

30 PRINT "listare el programa" 

40 FOR t=l TO 4000:NEXT 
50 GOTO 100 

60 PRINT "Hay un error en la linea"; 

70 PRINT ERL:PRINT:LIST 
run 

Orden. Provoca el salto a la línea especificada cuando se detecta un error en el 
programa. 

La forma ON ERROR GOTO 0 desactiva la gestión de errores programada por el usua¬ 
rio y activa la normal de BASIC. 

Véase también la orden RESUME. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, RESUME. 


ON <expresión) GOSUB 


ON (selector) GOSUB (lista de;(ouiero de linea) 

10 PAPER 0:PEN 1:INK 0,1 
20 CLS:PRINT "MENU DE OPCIONES":PRINT 
30 PRINT "1. Cambiar borde":PRINT 
40 PRINT "2. Cambiar pluma":PRINT 
50 PRINT "3. Cambiar modo":PRINT 
60 INPUT "Elija del 1 al 3: ",x 

70 ON x GOSUB 90,110,130 
80 GOTO 20 

90 b=b-l:IF b<0 THEN b=2ó 

100 BORDER b:RETURN 

110 p=p-l:IF p<2 THEN p=26 

120 INK l,p:RETURN 

130 m=m-1:IF m<0 THEN m=2 

140 MODE m:RETURN 

run 
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Orden. Determina, en función del valor de (selector), qué subrutina de BASIC debe 
ser invocada. El margen de valores de (selector) es de 0 a 255. La rutina elegida es 
la que se encuentra en la lista en el lugar indicado por (selector). Así, en el ejemplo 
anterior, si x=l, se invoca la rutina de la línea 90; si x=2, la línea 110; y si x=3, la 
de la línea 130. 

Si el valor de (selector) es cero o mayor que el número de líneas citadas en la (lista 
de números de línea), no se invoca ninguna subrutina. 

Palabras clave asociadas: RETURN. 


ON (expresión) GOTO 


ON <selector> GOTO <lista delimiten) i e linea) 

10 CLS:PRINT "MENU DE OPCIONES”:PRINT 

20 PRINT "1. Listar programa":PRINT 

30 PRINT ”2. Editar y amp1 iar":PRINT 

40 PRINT "3. Catalogo del disco"IPRINT 

50 INPUT "Elija del 1 al 3: ”,x 

60 ON x GOTO 80,90,100 

70 GOTO 10 

80 LIST 

90 AUTO 

100 CAT . 

run 


Orden. Determina, en función del valor de (selector), a qué línea del programa debe 
saltar la ejecución. El margen de valores de (selector) es de 0 a 255. La línea elegida 
es la que se encuentra en la lista en el lugar indicado por (selector). Así, en el ejemplo 
anterior, si x=l se salta a la línea 80; si x=2, a la línea 90; y si x=3, a la línea 100. 

Si el valor de (selector) es cero o mayor que el número de líneas citadas en la (lista 
de números de línea), no se produce el salto. 

Palabras clave asociadas: RETURN. 
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ON SQ GOSUB 


ON SQ(<can»I>) GOSUB <#u»ero de linea) 

10 ENV 1,15,-1,1 
20 ON SQ <1) GOSUB 60 

30 MODE 0:ORIGIN 0,0,200,440,100,300 

40 FOR x = l TO 13:FRAME:MOVE 330,200,x 

50 FILL x:NEXT:GOTO 40 

60 READ s:IF s=0 THEN RESTORE:GOTO 60 

70 SOUND 1,5,25,15,1 

80 ON SQ81) GOSUB 60:RETURN 

90 DATA 50,60,90,100,35,200,24,500,0 

run 

Orden. Invoca la subrutina especificada cuando hay espacio libre en la cola de sonidos. 
El parámetro <canal) deber ser una expresión entera que dé uno de los siguientes 
valores: 

1 para el canal A 

2 para el canal B 
4 para el canal C 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información sobre 
los sonidos. 

Palabras clave asociadas: RETURN, SOUND, SQ. 


OPENIN 

OPENIN (noibre de fichero) 

10 REM abrir un fichero del disco para entrada 
20 OPENIN "datos":INPUT #9,a,a$ 

30 CLOSEIN:PRINT "Los dos valores son:" 

40 PRINT:PRINT a,a$ 
run 

Orden. Abre, en dirección de entrada, un fichero grabado en disco para hacerlo accesi¬ 
ble al programa. El fichero tiene que ser de tipo ASCII. 

El programa anterior sólo funciona si se ha creado previamente el fichero (por ejemplo, 
con el programa siguiente). 

Palabras clave asociadas: CLOSEIN, EOF. 
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OPENOUT 


OPENOUT (lumbre del fichero) 

10 REM abrir uri -fichero en el disco para salida 
20 INPUT "Escriba un numero: ",a 
30 INPUT "Escriba una palabra: ",a$ 

40 OPENOUT "datos" 

50 WRITE #9,a,a$ 

60 CLOSEOUT:PRINT "Datos grabados en disco" 
run 


Orden. Abre, en dirección de salida, un fichero para su grabación en disco. 
Palabras clave asociadas: CLOSEOUT. 


OR 


(arguoento) OR (arquéente) 

IF 'juan'Cpepe' OR 'perro'Pqato' THEH PRINT 'verdadero' ELSE PRINT 'falso' 
verdadero 

IF 'pepe'Cjuañ' OR 'gato'Pperro' THEN PRINT 'verdadero' ELSE PRINT 'falso' 
falso 

IF 'juaa'Cpepe' GR 'gatc'Pperro' THEN PRINT 'verdadero' ELSE PRINT 'falso' 
verdadero 

PRINT 1 OR 1 
1 

PRINT g OR g 

I 

PRINT 1 OR g 
1 


Operador. Realiza la operación lógica ‘o’ bit a bit entre enteros. El resultado es 1 a 
menos que ambos bits sean 0. 

Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítu¬ 
lo titulado ‘Cuando usted guste ...’. 

Palabras clave asociadas: AND, NOT, XOR. 
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ORIGIN 


ORIGIN <*>, </>[, (izquierda), (derecha), (arriba), (abajo)l 

10 MODE 1:BORDER 13:TAG 
20 ORIGIN 0,0,100,540,300,100 
30 GRAPHICS PAPER 3:CLG 
40 FCR x=550 TO -340 STEP -10 
50 MOVE x,206 

60 PRINT "Esta es una ventana qr a+ica " 

70 frame:next:goto 40 

run 

Orden. Traslada el origen de gráficos (nuevo punto 0,0) a la posición especificada por 
<x) e <y>. 

Al mismo tiempo se pueden especificar las dimensiones de una ventana gráfica dando 
los cuatro últimos parámetros (opcionales). Si estos parámetros definen posiciones ex¬ 
ternas a la pantalla, el borde de la ventana será el borde de la pantalla. 

Palabras clave asociadas: CLG. 


OUT 

GUT (ituiera de puerta), (expresión entera) 

GUT 8cF8F4,8cFF 

Orden. Envía el valor de <expresión entera) (margen de 0 a 255) a la dirección especifi¬ 
cada por (número de puerta). 

Esta orden no debe ser utilizada si no se sabe cuáles son sus efectos. 

Palabras clave asociadas: INP, WAIT. 


PAPER 

PAPER [#(expresion de nuiero de canal), l(tinta) 

10 MODE 0:PEN 0:INK 0,13 
20 FOR p=i TO 15 
30 PAPER p:CLS 

40 LOCATE 7,12:PRINT "paper"!p 
50 FOR t=l TO 500:NEXT t,p 
run 
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Orden. Establece qué tinta se va a utilizar para escribir el fondo (papel) de los caracte¬ 
res. Si los caracteres se envían a la pantalla de texto, la celda se rellena con el color 
actual del papel antes de escribir el carácter (a menos que se haya elegido el modo 
transparente). 

Si se omite la (expresión de número de canal) se supone el #0. 

El número de tintas utilizables simultáneamente depende del modo de pantalla. 
Palabras clave asociadas: GRAPHICS PAPER, IIMK, PEN. 


PEEK 

PEEK < texpresion le dirección de leioria)) 

10 MODE líZONE 7 

20 WINDOW 1,40,1,3:WINDOW #1,1,40,4,25 
30 LOCATE 13,1:PRINT"MEMORIA" 

40 PRINT:PRINT"Direce ion" 

50 LOCATE 20,3:PRINT"Conten ido" 

60 FOR n=0 TO 65535 
70 p=PEEK(n) 

80 PRINT #l,n, " <8¿"¡HEX*<n) } " ) " ; 

90 PRINT #1,TAB<20) 5p,"(fe" ;HEX$(p);")" 

100 NEXT 
run 

Función. Da el contenido de la posición de memoria especificada por el argumento, 
el cual debe estar en el margen de &0000 a &FFFF (0 a 65535). En todos los casos, el 
valor producido será el contenido de la posición de memoria de la RAM (no de la 
ROM) y estará entre &00 y &FF (entre 0 y 255). 

Palabras clave asociadas: POKE. 


PEN 

PEN l#<expresion de nuiero de canal), H<tinta>][, <iodo de fondo» 

10 MODE 0:PAPER 0IINK 0,13 
20 FOR p=l TO 15 

30 PEN plPRINT SPACE$(47)j"pen"5 p 
40 FOR t=l TO 500:NEXT t,p:GOTO 20 
run 

Orden. Establece la (tinta) (margen de 0 a 15) con la que se escribirán los caracteres 
en lo sucesivo en el canal especificado (en el #0 si no se especifica ninguno). El paráme¬ 
tro (modo de fondo) puede ser 1 (transparente) o 0 (opaco). 
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Se puede omitir cualquiera de los últimos parámetros, pero no ambos. La característica 
correspondiente al parámetro omitido permanece inalterada. 

Palabras clave asociadas: PAPER. 


PI 


PI 

PRINT PI 
3.14159265 

Función. Da el valor del número tt, relación de la longitud al diámetro de la circun¬ 
ferencia. 

Palabras clave asociadas: DEG, RAD. 


PLOT 

PLOT (coordenada x>, (coordenada y>[, Ktintall, (iodo de tinta)]] 

10 MODE 1:BORDER 0:PAPER 0:PEN 1 

20 INK 0,0:INK 1,26:INK 2,13,26:DEG 

30 FOR x=l TO 360:ORIGIN 320,200 

40 DRAW 50*COS(x),50*SIN(x),1 

50 PLOT 100*COS(x>,25*SIN(x>:NEXT 

60 ORIGIN 0,0:t=TIME + 700:WHILE TIME< t 

70 PLOT RND*640,RND*400:WEND 

80 PLOT RND*640,RND*400,2 

90 GOTO 90 

run 

Orden. Dibuja un punto en la pantalla gráfica, en la posición absoluta especificada por 
los parámetros (coordenada x> y (coordenada y>. También se puede especificar la 
(tinta) con la que se debe dibujar (margen de 0 a 15). 

El parámetro opcional (modo de tinta) determina la forma de interacción entre la tinta 
.con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

0 Normal 

\ XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOTR. 
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PLOTR 


PLOTR (increiento de i ), (incremento de y)l, [(tintill , <iodo de tinta)]] 


10 

20 

30 

40 

50 

60 

70 

80 

90 


REM dibuja de rectas con las teclas del 
BORDER 0:GRAPHICS PEN 1 


MODE l:FLOT 320,200 


IF 

IF 

IF 

IF 

IF 


INKEY(0)=0 
INKEY(1)=0 
INKEY(2> =0 
INKEY(8)=0 
INKEY(9)=0 


GOTO 40 


THEN PLOTR 0,1 
THEN PLOTR 1,0 
THEN PLOTR 0,-1 
THEN PLOTR -1,0 
THEN 30:REM copy 


= borrar 


cursar 


run 


Orden. Dibuja un punto en la pantalla gráfica en una posición que, referida a la actual, 
viene dada por los parámetros <incremento de x> e (incremento de y). Se puede utili¬ 
zar el parámetro opcional (tinta) para cambiar la tinta de la pluma gráfica (margen 
de 0 a 15). 

El parámetro opcional (modo de tinta) determina la futura forma de interacción entre 
la tinta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

0 Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOT. 


POKE 

POKE (expresión de dirección de aeioria), (expresión entera) 

10 FOR rn=49152 TG 65535 
20 POKE m, 100 
30 NEXT 
run 


Orden. Escribe el valor de la (expresión entera) (margen de 0 a 255) en la memoria 
de la máquina (RAM), en la posición especificada por el parámetro (expresión de di¬ 
rección de memoria). 

Esta orden no se debe utilizar si no se sabe cuáles son sus efectos. 

Palabras clave asociadas: PEEK. 
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POS 


POS < Mlexpresion de nuiero de canal)) 

10 MODE 1:BORDER 0:LOCATE 8,2 
20 PRINT "Utilice las teclas de cursor a la 
izquierda y cursor a la derecha" 

30 WINDQW 1,40,12,12:CURS0R 1,1 
40 FOR n=l TO 19:PRINT CHR$(9);:NEXT 
50 IF INKEY(1)< > — 1 THEN PRINT CHR$(9); 

60 IF INKEY <8)0-1 THEN PRINT CHR$(8); 

70 LOCATE MI,1,24 

80 PRINT MI,"Posicion horizontal del "> 

90 PRINT MI,"cursor de texto ="» 

100 PRINT MI,POS < M0):GOTO 50 
run 

Función. Da la posición horizontal del cursor de texto referida al borde izquierdo de 
la ventana. El parámetro <expresión de número de canal) tiene que ser especificado, 
aunque sea el # 0 . 

P0S{#8) da la posición horizontal de la cabeza impresora, siendo 1 la posición del ex¬ 
tremo izquierdo. 

POS!#9) da la posición lógica en el canal del disco, esto es, el número de caracteres 
tipográficos enviados al disco después del último retorno del carro. 

Palabras clave asociadas: VPOS, WIN DOW. 


PRINT 

PRINT IMtexpresion de nuiero de canal), ][<lista deXeleiento que se escribe)] 

10 a$="carta" 

20 b$="esta cadena es mas larga" 

30 PRINT a$;a* 

40 PRINT a$,a$ 

50 PRINT 
60 PRINT b$]b$ 

70 PRINT b*,b$ 
run 

Orden. Envía los <elementos que se escriben) al canal especificado (o al #0, si no se 
especifica ninguno). 

Cuando se utiliza un signo de punto y coma (;) para separar los elementos de la lista, 
el ordenador escribe cada elemento inmediatamente después del anterior; no obstante, 
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BASIC comprueba si el elemento siguiente cabe en la misma línea y, si no cabe, salta 
a la línea siguiente a pesar del signo de punto y coma. 

Análogamente, la coma (,) especifica que el siguiente elemento se debe escribir en la 
siguiente zona de escritura; no obstante, BASIC comprueba si con el elemento actual 
se ha rebasado la anchura de la zona de escritura y, si es así, escribe el siguiente elemen¬ 
to en una zona más a la derecha. 


PRINT SPC 
PRINT TAB 


PRINT [«(expresión de minero de canal), IKlista de:(ele»ento que se escribe)]!; ] 
[SPC <(expresión entera)) ][(lista de:(ele»ento que se escribe)] 

PRINT [«(expresión de minero de canal), JKlista de;(elenento que se escribe)]!; ] 
[TAB ((expresión entera)) ][(lista de:(elenento que se escribe)] 

10 PRINT “Esta es la -función SPC" 

20 FOR x=6 TO 15 

30 PRINT SPC(5)"a"5 SPC < x)"b" 

40 NEXT 

50 PRINT "Esta es la -función TAB" 

60 FOR x=6 TO 15 

70 PRINT TAB(5)"a"iTABtx)"b” 

80 NEXT 
run 


SPC escribe el número de espacios especificado por la (expresión entera) y luego, in¬ 
mediatamente a su derecha, el siguiente (elemento) (en el supuesto de que quepa en 
la misma línea). Por consiguiente, no es necesario poner el signo de punto y coma des¬ 
pués de SPC. 

TAB avanza (escribiendo espacios) hasta la posición especificada por la (expresión 
entera), referida al borde izquierdo de la ventana, y luego, inmediatamente a la dere¬ 
cha de esa posición, escribe el siguiente (elemento) (en el supuesto de que quepa en 
la misma línea). Por consiguiente, no es necesario poner el signo de punto y coma des¬ 
pués de TAB. Si la posición actual es mayor que la especificada, primero se realiza un 
retorno de carro y avance de línea y después el avance de los espacios necesarios. 


3/60 


Lista completa de las palabras clave del BASIC de AMSTRAD 



PRINT USING 


PRINT [#<expfesion de nuiefo de canal>H< 1 ista de:<ele»ento que se escribe)!!} 1 
IUSING {plantilla de 4or«atD>H<separadorXeiípre5iOB>3 

10 POR x=l TO 10 
20 n=100000*(RNDt5) 

30 PRINT "Preci o" 5USING "########,. ## ,! 5 n 

40 NEXT 

run 

PRINT USING permite especificar el formato de la expresión escrita con PRINT. Esto 
se consigue especificando una (plantilla de formato) a la que la escritura ha de amol¬ 
darse. El (separador) es una coma o un punto y coma. La (plantilla de formato) es 
una cadena literal construida con los siguientes ‘especificadores de formato’: 

Formatos numéricos 

Para el número en sí: 

# Cada # especifica una posición (para un dígito). 

Ejemplo: ###### 

. Especifica la posición del punto decimal. 

Ejemplo: ######.## 

, (Especifica una posición.) Sólo puede aparecer antes del punto decimal. Especi¬ 
fica que los dígitos que queden a la izquierda del punto decimal deben separarse 
mediante comas en grupos de tres. 

Ejemplo: #####,.## 

Para antes y después del número: 

PtPt (Especifica dos posiciones.) Especifica que se debe escribir un signo Pt inme¬ 
diatamente antes del primer dígito o del punto decimal, después del signo + 
o - (si lo hay). Obsérvese que el signo Pt ocupará una de las posiciones para 
dígitos. Ejemplo: PtPt######,.## 

* * (Especifica dos posiciones.) Especifica que los espacios libres a la izquierda de¬ 

ben ser rellenados con asteriscos. 

Ejemplo: **######,.## 

**Pt (Especifica tres posiciones.) Actúa como las opciones ** y PtPt combinadas, 
es deqiCv con asteriscos por la izquierda y el signo Pt. 

Ejemplo: **R######,.## 

$$ (Especifica dos posiciones.) Especifica que se debe escribir un signo $ inmedia¬ 
tamente antes del primer dígito o del punto decimal, después del signo + o - 
(si lo hay). Obsérvese que el signo $ ocupará una de las posiciones para dígitos. 
Ejemplo: $$######,.## 
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* *$ (Especifica tres posiciones.) Actúa como las opciones * * y $$ combinadas, es 
decir, con asteriscos por la izquierda y el signo $. 

Ejemplo: **$######,.## 

+ Especifica que se debe escribir el signo + o el - (según corresponda). Si se in¬ 
cluye el signo + al principio de la plantilla, el signo se escribirá inmediatamente 
antes del número (y del signo R o $, si se lo ha especificado). Si se incluye el 
signo + al final de la plantilla, el signo se escribe a la derecha del número (y 
del exponente, si lo hay). 

Ejemplo: + ####.#### 

~ Esté signo sólo se puede poner al final de la plantilla. Especifica que, si el nú¬ 
mero es negativo, se debe escribir el signo - a su derecha (y a la derecha del 
exponente, si lo hay). Si el número es positivo, a su derecha se escribe un espa¬ 
cio. Si no se especifica esto, se escribe automáticamente un signo - a la izquier¬ 
da de todos los números negativos. 

Ejemplo: ####.####- 

íííí Especifica que el número se debe escribir en forma exponencial. Los signos 
ÍÍÍT se deben poner a la derecha de las posiciones para dígitos, pero a la iz¬ 
quierda de los signos + y - (si los hay). 

Ejemplo: ##.####TÍTT + 

La (plantilla de formato) para números no puede contener más de 20 caracteres. Los 
números son redondeados antes de escribirlos con los dígitos especificados. 

Si el formato es demasiado pequeño para el número que se ha de escribir, por ejemplo 
PRINT USING "####";12345678 

el número no se trunca, sino que se lo escribe entero, precedido de un signo °7o para 
indicar el ‘fallo de formato’. 


Formatos 

literales 



10 

CLS: a$="abcde-f gh ij klmnopq" 


20 

PRINT "expresión de entrada = 

"a$ 

30 

PRINT:PRINT 

"con espec i-í i cador 

! = " 5 

40 

PRINT USING 

" ! " ! a$ 


50 

PRINT:PRINT 

"con especi-f icador 

NespaciosN 

60 

PRINT USING 

" \ \";a* 


70 

PRINT:PRINT 

“con especificador 

$ = "; 

80 

PRINT USING 

"8í";a* 


90 

GOTO 90 



run 
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! Especifica que solamente se debe escribir el primer carácter de la cadena. 
Ejemplo: ! 

\< espacios >\ 

Especifica que solamente se deben escribir los x primeros caracteres de la cade¬ 
na, siendo x la longitud de la plantilla (incluidas las barras inclinadas hacia la 
izquierda). 

Ejemplo: \ \ 

& Especifica que se debe escribir la cadena completa sin modificarla. 

Ejemplo: & 

La <plantilla de formato) para cadenas literales no puede contener más de 255 
caracteres. 

Las plantillas de formato, tanto si son numéricas como si son literales, pueden ser re¬ 
presentadas por variables literales; por ejemplo: 

10 

20 b*="!■ 

30 PRINT USING a*!12345.6789 
40 PRINT USING b*;"cent irnos" 
run 


En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información acerca 
de los formatos de impresión. 

Palabras clave relacionadas: SPC, TAB, USING, ZONE. 


RAD 

RAD 


RAD 


Orden, Hace que BASIC entienda los argumentos de las funciones trigonométricas en 
radianes. Ésta es la situación implícita que se establece en el momento de encender la 
máquina, cuando se la reinicializa y cuando se ejecutan las órdenes NEW, CLEAR, 
LOAD, RUN, etc. 

Palabras clave asociadas: ATN, COS, DEG, SIN, TAN. 
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RANDOMIZE 


RANDOMIZE [{expresión nuieríca)] 

RANDOMIZE 123.456 
PRINT RND 
0.258852139 


Orden. El generador de números aleatorios de BASIC produce una sucesión pseudo- 
aleatoria en la que cada número depende del anterior. La sucesión es siempre la misma. 
RANDOMIZE hace que los números aleatorios se tomen de esa sucesión a partir de 
la posición dada por la <expresión numérica) o, si se omite ésta, por un valor que el 
usuario debe teclear. 

RANDOMIZE TIME produce una sucesión que es muy difícil de repetir. 

Palabras clave asociadas: RND. 


READ 

READ < 1 ist delívariable) 

10 FOR n=l TO 8 
20 READ a$,c 

30 PRINT a*;" n ;:SOUND l,c:NEXT 

40 DATA en,478,todas,426, 1 as,379,escalas,358 

50 DATA musicales,319,hay,284,8,253,notas,239 

r un 


Orden. Lee datos de las listas precedidas de DATA y los asigna a variables, actualizan¬ 
do automáticamente el ‘puntero’ de forma que éste señale el siguiente dato. Se puede 
utilizar la orden RESTORE para hacer que el puntero señale el primer dato de una de¬ 
terminada lista DATA. 

En la parte 2 del capítulo titulado ‘Cuando usted guste ... ’ daremos más amplia infor¬ 
mación a este respecto. 

Palabras clave asociadas: DATA, RESTORE. 
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RELEASE 


RELEASE <ca#ales de sonido) 

10 SOUND 65,1000,100 

20 PRINT "Pulse R para liberar el sonido" 

30 IF INKEY(50)=-i THEN 30 

40 RELEASE 1 

RUN 

Orden. Libera los canales de sonido que han sido retenidos en una orden SOUND. 

El parámetro <canales de sonido) tiene que dar un valor entero comprendido entre 1 
y 7. Su significado es el siguiente: 

1 libera el canal A 

2 libera el canal B 

3 libera los canales A y B 

4 libera el canal C 

5 libera los canales A y C 

6 libera los canales B y C 

7 libera los canales A, B y C 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más amplia información 
acerca de los sonidos. 

Palabras clave asociadas: SOUND. 


REM 

REM tresto de U linea) 

10 REM Caza a muerte de los invasores del 
hiperespacio intergalactico, por AMSOFT 
20 REM Copyright AMSOFT 19S5 


Orden. Precede a las observaciones o anotaciones al programa. Hace que BASIC igno¬ 
re el resto de la línea, en el cual pueden figurar caracteres cualesquiera, incluso el signo 
de dos puntos (:), que normalmente se utiliza para separar instrucciones. 

En lugar de :REM se puede poner una comilla sencilla (') en todos los casos salvo en 
las líneas de DATA, en las que el signo ' se interpreta como integrante de una cadena 
literal. 

Palabras clave asociadas: ninguna. 
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REMAIN 


REMAIN (tninero de teiporizadof)) 

10 AFTER 500,1 GOSUB 40 
20 AFTER 100,2 GOSUB 50 

30 PRINT "Programa -funcionando": GOTO 30 
40 REM esta subrutina no sera invocada porque 
lo impide la linea 80 

50 PRINTrPRINT "El tempori 2 ador 1 va a ser "; 

60 PRINT "inhibido por REMAIN." 

70 PRINT "Unidades de tiempo que quedaban:"; 

80 PRINT REMAIN(1) 
run 

Función. Da la cuenta restante en el temporizador especificado (margen de 0 a 3) y lo 
desactiva. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información acerca 
de las interrupciones. 

Palabras clave asociadas: AFTER, DI, El, EVERY. 


RENUM 

RENUM Knuevo muero de linea)]!, [(antiguo muero de linea)]!, <incre»ento>J] 

10 CLS 

20 REM esta linea sera la 123 

30 REM esta linea sera la 124 

40 REM esta linea sera la 125 

RENUM 123,20,1 
LIST 

Orden. Renumera las líneas del programa. 

El parámetro (antiguo número de línea) especifica el número de línea actual en el cual 
debe comenzar la renumeración. Si se omite ese parámetro, la renumeración se realiza 
desde el principio del programa. 

El parámetro (nuevo número de línea) especifica qué número se va a dar a la primera 
línea renumerada. Si se omite este parámetro, el programa renumerado empieza en la 
línea 10. 

El parámetro (incremento) especifica el salto que habrá entre cada dos números de 
línea sucesivos. Si se lo omite, el incremento es 10. 
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RENUM modifica correctamente los números de línea citados en las instrucciones 
GOTO, GOSUB y similares. Sin embargo, no se modifican las referencias a números 
de línea que estén contenidas en expresiones literales, tales como las que intervienen 
en las órdenes KEY, ni tampoco las contenidas en líneas REM, ni las (expresiones de 
número de línea) incluidas en CHAIN y CHAIN MERGE. 

Los números de línea válidos son los comprendidos entre 1 y 65535. 

Palabras clave asociadas: DELETE, LIST. 


RESTORE 

RESTORE tinuiero Je linea)] 

10 READ s$:PRINT a$i” "; 

20 RESTORE 50 

30 FOR t=l TO 500:NEXT:GOTO 10 

40 DATA restaure los datos para leerlos una vez 

50 DATA y otra 

run 

Orden. Hace que el ‘puntero’ de datos ‘apunte’ hacia el principio de la línea de DATA 
especificada por el parámetro opcional (número de línea). Si se omite el parámetro, 
el puntero señala la primera línea de DATA del programa. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información a este 
respecto. 

Palabras clave asociadas: DATA, READ. 


RESUME 

RESUME Kmiiero de linea)] 

10 ON ERROR GOTO 60 

20 FOR x — i0 TO 0 STEP -llPRINT l/x:NEXT 
30 END 

40 PRINT "llegamos hasta aqui después del error" 

50 END 

60 PRINT "error numero"5ERR;"en la linea";ERL 

70 RESUME 40 

run 

Orden. Reanuda la ejecución normal del programa una vez detectado un error y proce¬ 
sado por una orden ON ERROR GOTO. Si se omite el (número de línea), el programa 
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continúa en la misma línea en la que se produjo el error. Suprima el (número de línea) 
en el ejemplo anterior y ejecute nuevamente el programa: 

70 RESUME 
run 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME 
NEXT. 


RESUME NEXT 

RESUME NEXT 

10 ON ERROR GOTO 90 

20 PRINT "Pulse siempre [RETURN!” 

30 INPUT B l";a 
40 INPUT "2"i a 

50 inpot "3”5 a REM error de sintaxis 
60 INPUT "4";a 
70 INPUT "5"; a 
80 END 

90 PRINT "error numero”;ERR;"en la linea"; ERL 

100 RESUME NEXT 

run 


Orden. Reanuda la ejecución normal del programa una vez detectado un error y proce¬ 
sado por una orden ON ERROR GOTO. 

RESUME NEXT reanuda la ejecución en la línea siguiente a aquélla en la que se detec¬ 
tó el error. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, 
RESUME. 


RETURN 

RETURN 

10 GOSUB 50:PRINT "después del GOSUB“:END 
50 FOR n=l TO 20 
60 PRINT "subrutina" 

70 NEXT:PRINT 
80 RETURN 
run 
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Orden. Señala el final de una subrutina. BASIC retorna de la subrutina a la instrucción 
inmediatamente posterior a aquélla que invocó la subrutina. 

Palabras clave asociadas: GOSUB. 


RIGHT$ 

RIGHT$ <(expresión literal), <longitud deseada) > 

10 MODE 0: a$="Ordenador CPC6128" 

20 FOR n=l TO 17:L0CATE 21-n,n 
30 PRINT RIGHT$(a$,n) 

40 NEXT 
run 

Función. Produce una cadena que consta del número de caracteres dado por <longitud 
deseada) (margen de 0 a 255) tomados de la derecha de la (expresión literal). Si la lon¬ 
gitud de la (expresión literal) es menor que la (longitud deseada), la cadena producida 
es la (expresión literal) completa. 

Palabras clave asociadas: LEFT$, MID$. 


RND 

RNDI ((expresión nuierica)) 1 
10 RANDOMIZE 

20 FOR x=l TO -1 STEP -1 
30 PRINT "parametro de rnd = n ;x 
40 FOR n=l TO 6 
50 PRINT RND(X) 

60 NEXT n,x 
run 

Función. Da el siguiente número aleatorio de la sucesión en el caso de que la (expresión 
numérica) tenga valor positivo o no haya sido especificada. 

Si la (expresión numérica) toma valor cero, RND vuelve a dar el anterior número alea¬ 
torio generado. 

Si la (expresión numérica) toma un valor negativo, se inicia una nueva sucesión aleato¬ 
ria y RND da su primer número. 

Palabras clave asociadas: RANDOMIZE. 


Lista completa de las palabras clave del BASIC de AMSTRAD 


3/69 


ROUND 


ROUND ({expresión nuaericaH , <deciiales>]) 

10 FOR n=4 TO -4 STEP-1 
20 PRINT ROUND (1234.5678., r,) , 

30 PRINT "con <decimale3> =";n 

40 NEXT 

nun 

Función. Redondea la <expresión numérica) a un número de decimales o potencia de 
diez especificada por <decimales). Si <decimales) es menor que cero, se redondea la 
<expresión numérica) para dar un número entero seguido de tantos ceros antes del 
punto decimal como indique el parámetro <decimales). 

Palabras clave asociadas: ABS, CINT, FIX, IIMT. 


RUN 

RUN {expresión literal) 

RUN "di se 11 

Orden. Carga un programa de BASIC o un programa binario que esté grabado en disco 
e inicia su ejecución. Borra el programa anteriormente residente en la memoria. 

Los programas de BASIC protegidos pueden ser ejecutados por este procedimiento. 

Palabras clave asociadas: LOAD. 


RUN 

RUN Itnunero de linea)] 

RUN 200 

Orden. Inicia la ejecución del programa de BASIC actual a partir de la línea especifica¬ 
da por <número de línea), o a partir de la primera línea del programa si se omite el 
parámetro. 

Los programas protegidos no pueden ser ejecutados por este procedimiento. 
Palabras clave asociadas: CONT, END, STOP. 
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SAVE 


SAVE <nimbre de fichero)!, (tipo de fichero)!!, <para«etros binarios)] 

SAVE " +ichero.xyz" 

graba el fichero en modo de BASIC no protegido normal. 

SAVE "■fichero.xyz",? 

graba el fichero en modo de BASIC protegido. 

SAVE "+ichero.xyz",A 

graba el fichero en modo ASCII. 

SAVE "*ichero.xyz”,B,8000,3000,8001 

graba el fichero en modo binario. En este ejemplo, graba la zona de memoria del orde¬ 
nador que empieza en la dirección 8000 y tiene una extensión de 3000 bytes; el punto 
de entrada opcional es 8001 . 

Orden. Graba en disco el programa actualmente residente en la memoria. Un fichero 
binario consiste en una zona de memoria copiada en el disco. Los parámetros son en 
este caso: 

(dirección inicial), (longitud del fichero)!, (punto de entrada)! 

La memoria dedicada a la pantalla se puede grabar en forma de fichero binario. Es 
lo que se denomina ‘volcado de la pantalla’; la orden necesaria es: 

SAVE "pantalla",B,ííC000,6í4000 

El fichero se puedé volver a cargar con la orden: 

LOAD "pantalla" 

Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN. 
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SGN 


SGN ((expresión nuierica)) 

10 FOR n=200 TO -200 STEP-20 
20 PRINT “SGN da"; 

30 PRINT SGN(n);"cuando el numero es"jn 

40 NEXT 

r-un 

Función. Determina el signo de la <expresión numérica). Da el valor -1 si la (expre¬ 
sión numérica) es menor que cero; el valor 0 si es igual a 0; y el valor 1 si es mayor 
que cero. 

Palabras clave asociadas: ABS. 


SIN 


SIN ((«presión nuierica)) 

10 cls:deg:origin 0,200 

20 FOR n=0 TO 720 
30 y=SIN(n) 

40 PLOT n-X-640/720, 193*y:NEXT 
50 GOTO 50 
r un 

Función. Calcula el seno de la (expresión numérica). 

Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, RAD, TAN. 


SOUND 

SOÜND (situación de canales), (periodo de tono)!, (duración)!, (voluien) 

[, (envolvente de voluien)!, (envolvente de tono)!, (ruido)]]]]] 

10 FOR z=0 TO 4095 
20 SOÜND 1,z,1,12 
30 NEXT 
run 

Orden. Programa la generación de un sonido. Los parámetros son los siguientes: 
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Parámetro 1: <situación de canales) 


El parámetro <situación de canales) debe tener un valor comprendido entre 1 y 255. 
El significado de cada uno de los bits es como sigue: 


Bit 0 (decimal 1) 
Bit 1 (decimal 2) 
Bit 2 (decimal 4) 
Bit 3 (decimal 8) 
Bit 4 (decimal 16 
Bit 5 (decimal 32) 
Bit 6 (decimal 64) 
Bit 7 (decimal 128) 


enviar sonido al canal A (bit menos significativo) 

enviar sonido al canal B 

enviar sonido al canal C 

sincronización con el canal A 

sincronización con el canal B 

sincronización con el canal C 

retención del canal de sonido 

borrado del canal de sonido (bit más significativo) 


Por ejemplo, el valor 68 del parámetro (situación de canales) especifica: 


Enviar el sonido al canal C (4) y retenerlo (64). 


Parámetro 2: (periodo de tono) 

Este parámetro define el tono del sonido; es decir, identifica la nota (DO, RE, MI, FA, 
etc.). Cada nota tiene un número de identificación, que es el (periodo de tono). Véase 
el capítulo titulado ‘Para su referencia ...’. 

Parámetro 3: (duración) 

Este parámetro especifica la duración del sonido. Las unidades son de centésimas de 
segundo (0.01 s). Si no se especifica duración, el ordenador toma el valor implícito para 
este parámetro, que es 20 (un quinto de segundo). 

Si el valor de (duración) es cero, el sonido dura hasta el final de la envolvente de volu¬ 
men especificada. 

Si el valor de (duración) es negativo, la envolvente de volumen especificada se repite 
ABS(( duración)) veces. 


Parámetro 4: (volumen) 

Este parámetro especifica el volumen inicial de la nota. El margen de valores va de 0 
a 15. El (volumen) 0 es el mínimo; el 15 es el máximo. Si no se especifica (volumen), 
el ordenador toma el implícito, que es 12. 

Parámetro 5: (envolvente de volumen) 

Se puede hacer que el volumen de la nota no sea constante, sino que varíe con el tiempo 
mientras la nota está sonando. Para especificar la forma de variación del volumen con 
el tiempo se utiliza la orden ENV. De hecho, se pueden crear hasta 15 envolventes de 
volumen diferentes, con números de referencia del 1 al 15. El parámetro (envolvente 
de volumen) invoca una envolvente de volumen para su utilización por SOUND. 

Véase la descripción de la orden ENV. 


Lista completa de las palabras clave del BASIC de AMSTRAD 


3/73 




Parámetro 6: <envolvente de tono) 

Se puede hacer que el tono de una nota no sea constante, sino que varíe con el tiempo 
mientras la nota está sonando. Para especificar la forma de variación del tono con el 
tiempo se utiliza la orden ENT. De hecho, se pueden crear hasta 15 envolventes de 
tono diferente, con números de referencia del 1 al 15. El parámetro <envolvente de 
tono) invoca una envolvente de tono para su utilización por SOUND. Si en la defini¬ 
ción de ENT se ha puesto un número negativo como número de envolvente, en la ins¬ 
trucción SOUND se debe poner el valor absoluto de ese número como (envolvente de 
tono). 

Véase la descripción de la orden ENT. 

Parámetro 7: (ruido) 

Se puede añadir ruido al sonido: la intensidad del ruido se controla con el parámetro 
(ruido). El margen de valores va de 0 (ruido apagado) hasta 31. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más amplia información 
sobre los sonidos. 

Palabras clave asociadas: ENT, ENV, ON SQ GOSUB, RELEASE, SQ. 


SPACES 

SPACE® (íexpresiDn entera)) 


10 MODE 1 

20 PRINT "Pongamos 5 espacios entre uno"» 
30 PRINT SPACE®(5); 

40 PRINT "y otro" 
run 


Función. Crea una cadena literal consistente en el número de espacios especificado por 
(expresión entera) (margen de 0 a 255). 

Palabras clave asociadas: SPC, STRING$, TAB. 


SPC 

Véase PRINT SPC. 
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SPEED INK 


SPEED INK (periodo 1>, (periodo 2> 

10 BORDER 7,18 

20 FOR i=30 TO 1 STEP-1 

30 SPEED INK i,i 

40 FOR t=i TO 700:NEXT t,i 

run 

Orden. Establece la velocidad de alternancia entre los dos colores de tinta especificados 
mediante INK o BORDER. El primer parámetro, <periodo 1 >, especifica el tiempo pa¬ 
ra el primer color, en unidades de 0.02 s (cincuentavos de segundo); (periodo 2> especi¬ 
fica el tiempo para el segundo color. 

Téngase cuidado al elegir colores y velocidades para evitar efectos mesméricos (‘hip¬ 
notizantes’). 

Palabras clave asociadas: BORDER, INK. 


SPEED KEY 

SPEED KEY «detora de arranque!, (periodo de repetición) 

10 CLS:FOR k=7 TO 1 STEP-2 

20 PRINT "Escriba su nombre y pulse IRETURN3" 

30 SPEED KEY k,k 
40 LINE INFUT a*:NEXT 

50 PRINT "Es un nombre muy interesante" 
run 

Orden. Establece las características de repetición de las teclas. El parámetro (demora 
de arranque) especifica el tiempo, en unidades e 0.02 s (cincuentavos de segundo) que 
ha de estar pulsada la tecla antes de que empiece a repetirse su acción. El parámetro 
(periodo de repetición) especifica el tiempo que debe transcurrir entre cada dos repeti¬ 
ciones sucesivas. 

SPEED KEY solamente actúa sobre las teclas que son de repetición implícitamente o 
que han sido definidas como tales mediante KEY DEF. 

Cuando se vaya a utilizar valores muy bajos del parámetro (demora de arranque), es 
aconsejable definir previamente una de las teclas numéricas para que devuelva el tecla¬ 
do a la situación implícita, SPEED KEY 30,2. La orden 

KEY 0,"SPEED KEY 30,2"+CHR$(13) 
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restablece los valores implícitos de los parámetros de SPEED KEY en cuanto se pulsa 
la tecla del 0 del teclado numérico. 

Palabras clave asociadas: KEY DEF. 


SPEED WRITE 

SPEED WRITE {expresión entera) 

SPEED WRITE 1 

Orden. Establece la velocidad de transferencia de datos al magnetófono (si está conec¬ 
tado). Las velocidades son: 2000 bits por segundo, si (expresión entera) vale 1, y 1000 
bits por segundo si (expresión entera) vale 0. Esta última es la velocidad implícita. Pa¬ 
ra leer una cinta no es necesario saber a qué velocidad ha sido grabada, pues el orden- 
dor selecciona automáticamente la velocidad correcta de lectura. 

La máxima fiabilidad en la transferencia de datos se obtiene con la velocidad mínima, 
que además es la implícita: SPEED WRITE 0. 

Esta orden no ejerce ningún efecto sobre el sistema de grabación en disco. 

Palabras clave asociadas: OPENOUT, SAVE. 

SO 


SQ ((canal)) 

10 SOUND 65,100,100 
20 PRINT SQ(1) 
r ur¡ 

6? 


Función. Genera un número que informa del estado de la cola de sonido del (canal) 
especificado. El parámetro puede tener uno de los siguientes valores: 

1 para el canal A 

2 para el canal B 
4 para el canal C 

La función SQ produce un número que se interpreta, según sea el valor de sus bits, 
de la forma siguiente: 

Bits 0, 1 y 2: número de huecos libres en la cola 

Bits 3, 4 y 5: estado de sincronización de la primera nota de la cola 

Bit 6 : la primera nota está retenida 

Bit 7 : el canal está activo en la actualidad 

donde el bit 0 es el menos significativo y el bit 7 el más significativo. 
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Como se puede apreciar, si el bit 6 está a 1, el bit 7 tiene que estar a cero, y viceversa. 
Análogamente, si alguno de los bits 3, 4 y 5 está a 1, los bits 6 y 7 tienen que estar 
a cero. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información acerca 
de los sonidos. 

Palabras clave asociadas: ON SQ GOSUB, SOUND. 


SQR 


SQR < (expresión nuierica)) 

PRINT SQR(9> 

3 


Función. Da el valor de la raíz cuadrada de la (expresión numérica). 
Palabras clave asociadas: ninguna. 


STEP 

Véase FOR. 

STOP 

STOP 

10 FOR n=l TO 30:PRINT nlNEXT 
20 STOP 

30 FOR n=31 TO 60:PRINT n:NEXT 

run 

cont 


Orden. Detiene la ejecución del programa, pero deja BASIC en un estado tal, que el 
programa puede ser reanudado mediante CONT. STOP se utiliza para establecer pun¬ 
tos de parada en la depuración de programas. 

Palabras clave asociadas: CONT, END. 
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STR$ 


STR$ ((expresión nuierica)) 

10 a=ÉcFF : REM 255 en hexadecimal 
20 b=Í£Xllll :REM 15 en binario 
30 c$="***" 

40 PRINT c$+STRí(a+b) 
r un 

*** 270*** 


Función. Convierte la <expresión numérica) en una cadena literal formada por los mis¬ 
mos dígitos decimales. 

Palabras clave asociadas: BIN$, DEC$, HEX$, VAL. 


STRINGS 

STRINGí ((longitud), (especificidor del carácter)) 

PRINT STRING*<40, "*'') 
**************************************** 

Función. Da una cadena literal que consiste en el carácter especificado repetido tantas 
veces como indique (longitud) (margen de 0 a 255). Nótese que en el ejemplo anterior 
se podría haber puesto también: 

PRINT STRINGÍ(40,42) 

**************************************** 


donde el (especificador del carácter), el número 42, es el código ASCII del asterisco. 
Palabras clave asociadas: SPACE$. 


SWAP 

Véase WINDOW SWAP. 
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SYMBOL 


SYMBOL <nuiero del carácter), <lista de:(fili> 

10 MODE l:SYMBOL AFTER 105 
20 i ilal=255: REM 11111111 en binar io 
30 -f i 1 a2=129: REM 10000001 en binar io 

40 -f i 1 a3=l 89: REM 10111101 en binario 

50 -f i la4=153: REM 10011001 en binario 

60 -f i la5=153: REM 10011001 en binario 

70 -f i la6=189: REM 10111101 en binar io 

80 -f i 1 a7=129: REM 10000001 en binario 

90 -f i 1 a8=255: REM 11111111 en binario 

100 PRINT "La linea 110 redefine la letra i (105). 
Teclee varias veces esa letra y luego liste 
el programa." 

110 SYMBOL 105,+ ilal,-fila2,-fila3, + ila4,-fila5, 
-filaó,-fila7,-fila8 

run 

Orden. Redefine la forma de un carácter. El margen para todos los parámetros es de 
0 a 255. 

Con objeto de reservar espacio en la memoria del ordenador para la descripción del 
carácter, es necesario ejecutar previamente la orden: 

SYMBOL AFTER x 

donde x debe ser igual o menor que el número del carácter que se va a definir. 

A continuación se emite la orden SYMBOL seguida, en primer lugar, por el número 
del carácter. 

El carácter puede ser directamente accesible por el teclado; en cualquier caso se lo pue¬ 
de escribir mediante la orden 

PRINT CHR$(x) 

Después de SYMBOL x viene una sucesión de hasta 8 parámetros, cada uno de los cua¬ 
les describe una fila de la matriz del carácter. El margen de estos parámetros es de 0 
a 255. La representación binaria de cada parámetro indica la situación de ‘encendido’ 
o ‘apagado’ de cada uno de los puntos de la fila correspondiente. 

Por ejemplo, si el primero de los ochos parámetros vale 1, la fila superior del carácter 
tiene la representación binaria 00000001. Cada 1 indica que el correspondiente punto 
del carácter se ilumina con el color de PEN; cada 0 indica que el correspondiente punto 
no será visible, pues se lo escribe con el color de PAPER. Así pues, la primera fila de 
este carácter consiste en un punto en el extremo superior derecho. Los siguientes pará¬ 
metros son 3 , 7 , 15 , 31 , 63 , 0 , 0 . La representación binaria de los ocho parámetros es como 
sigue: 
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parámetro (fila) 1: 00000001 
parámetro (fila) 2: 00000011 
parámetro (fila) 3 : 00000111 
parámetro (fila) 4: 00001111 
parámetro (fila) 5 : 00011111 
parámetro (fila) 6: 00111111 
parámetro (fila) 7: 00000000 
parámetro (fila) 8 : 00000000 


en binario ( 1 en decimal) 
en binario ( 3 en decimal) 
en binario ( 7 en decimal) 
en binario (15 en decimal) 
en binario (31 en decimal) 
en binario (63 en decimal) 
en binario ( 0 en decimal) 
en binario ( 0 en decimal) 


Observando el conjunto de las representaciones binarias podemos hacernos una idea 
del aspecto que tendrá el carácter. Asignemos estos parámetros al carácter número 255 
mediante la orden: 


SYMBOL 255,1,3,7,15,31,63,0,0 


Al ser 0 los dos últimos, podemos omitirlos: 
SYMBOL 255,1,3,7,15,31,63 


Los parámetros se pueden introducir en forma binaria, con lo que se ahorra el trabajo 
de convertirlos previamente a la forma decimal. (Recuérdese que el prefijo para núme¬ 
ros binarios es &X.) Por ejemplo: 

SYMBOL 255, 8<X00000001,8iX00000011, &X00000111, 

8íX 00001 111, ILX0001 lili, 8cX00111111 


Finalmente, para ver el resultado de la definición, ejecute la orden 
PRINT CHR$<255) 


Si se redefine uno de los caracteres accesibles por el teclado, el nuevo carácter aparecerá 
en la pantalla cada vez que se pulse la tecla correspondiente o se lo escriba con PRINT 
CHR$( ). Por otra parte, BASIC reconoce la forma del nuevo carácter cuando trata 
de leerlo en la pantalla, y no lo rechaza por incomprensible. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información sobre 
la redefinición de caracteres. 

Palabras clave asociadas: COPYCHR$, HIMEM, MEMORY, SYMBOL AFTER. 
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SYMBOL AFTER 


SYMBOL AFTER texpresioii entera) 


10 

20 

30 

40 

50 

Ó0 

70 


CLS 

SYMBOL AFTER 115 

PRINT "La linea 40 rede-fine la letra 
SYMBOL 115,0,56,64,64,48,8,8,112 
PRINT "a s" 

PRINT "Cancele esta de-finicion de s" 
PRINT "tecleando SYMBOL AFTER 240" 


r un 


II ■ 


Orden. Establece el número de caracteres redefinibles por el usuario (en el margen de 
0 a 256). El número implícito es 240, lo que deja 16 caracteres (del 240 al 255) definibles 
por el usuario. Si <expresión entera) es 32, todos los caracteres, del 32 al 255, son defi¬ 
nibles. SYMBOL AFTER 256 impide la redefinición de caracteres. 

Cada vez que se ejecuta una orden SYMBOL AFTER, quedan anuladas todas las rede¬ 
finiciones y la forma de todos los caracteres vuelve a ser la implícita. 

La orden SYMBOL AFTER no se puede ejecutar después de modificar el valor de Hl- 
MEM, lo cual puede ocurrir como resultado de una orden MEMORY, o bien al abrir 
un tampón para la grabación o lectura de un fichero con OPENOUT u OPENIN. En 
tales circunstancias se provoca el mensaje ‘Improper argument’ (‘argumento inade¬ 
cuado’, error número 5), a menos que la situación anterior fuera SYMBOL AFTER 
256. 

En la parte 2 del capítulo ‘Cuando usted guste ... ’ daremos más información sobre 
la redefinición de caracteres. 

Palabras clave asociadas: HIMEM, MEMORY, SYMBOL. 


TAB 

Véase PRINT TAB. 


TAG 

TAG [tttexpresiofi de muero de canal)] 

10 INPUT "Escriba su nombre: ",a$:CLS 
20 PRINT "Se mueve usted mucho, "ja$ 

30 TAG 

40 x=LEN(a$)*17:y=50+RND*300:MOVE -x,y 
50 FOR f=-x TO 640 STEP RND*7+3 
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60 MOVE -f , y: PRINT “ " > a$j : FRAME: NEXT 
70 FOR b=640 TO -x STEP-RND*7+3 
80 MOVE b, y: PRINT a$¡; " “ ; : FRAME: NEXT 
90 GOTO 40 
run 

Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla gráfi¬ 
ca, en la posición actual del cursor. De esta forma se puede mezclar texto con gráficos, 
o mover los caracteres pixel a pixel. Si se omite la (expresión de número de canal), 
se supone el # 0 . 

El punto superior izquierdo del carácter se conecta al cursor gráfico. Si se omite el sig¬ 
no de punto y coma al final de la instrucción PRINT, los códigos de retorno del carro 
y de avance de línea se visualizan como caracteres gráficos. 

Si se ha aplicado TAG al canal #0, BASIC desactiva TAG al volver a modo directo. 
Palabras clave asociadas: TAGOFF. 


TAGOFF 

TAGOFF Itttexpresion de Hiero de caui>] 

10 MODE 2:TAG :REM texto ligado al cursor gráfico 

20 per iodo=l984:FOR x=l TO 640 STEP 70 

30 MOVE x,400:DRAWR 0,-350 

40 periodo=periodo+1:PRINT per iodo;:NEXT 

50 TAGOFF :REM texto desconectado de cursor gráfico 

60 LOCATE 34,25:PRINT "Datos anuales" 

70 GOTO 70 
run 

Orden. Cancela la orden TAG para el canal especificado (o para el #0, si no se especifi¬ 
ca otro) y redirige el texto a la posición que tema el cursor de texto antes de ejecutarse 

TAG. 

Palabras clave asociadas: TAG. 


TAN 


TAN ({expresión naierica)) 

PRINT TAN(45) 

1.61977519 

Función. Calcula la tangente de la (expresión numérica), que debe tener un valor com¬ 
prendido entre -20000 y +20000. 
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Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, DEG, RAD, SIN. 


TEST 

TEST ((coordenada x>, (coordenada y>) 

10 CLS 

20 PRINT "Estamos utilizando la pluma numero"; 
30 PRINT TEST(10,3S6) 

40 PRINT "Cambie la pluma y el modo "i 

50 PRINT "... y ejecute otra vez el programa." 

run 


Función. Traslada el cursor gráfico al punto de coordenadas absolutas especificadas 
e informa del valor de la tinta presente en esa posición. 

Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS. 


TESTR 


TESTR ((increaento de x>, (increiento de y>) 

10 MODE 0:FOR x = l TO 15:L0CATE l,x 
20 PEN x:PRINT STRING*<10,143)5:NEXT 
30 MOVE 200,400:PEN 1 
40 FOR n=l TO 23:LOCATE 12,n 
50 PRINT ”pen";TESTR(0,-16):NEXT 
run 


Función. Lleva el cursor gráfico a un punto cuya posición, referida a la posición actual, 
viene dada por los parámetros (incremento de x> e (incremento de y>, e informa del 
valor de la tinta presente en ese punto. 

Palabras clave asociadas: MOVE, MOVER, TEST, XPOS, YPOS. 
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THEN 


Véase IF. 


TIME 

TIME 

10 CLSJREM reloj 
20 INPUT "Hora: ",hora 
30 INPUT "Minuto: ", mi ñuto 
40 INPUT "Segundo: ", segundo 
50 CLS: re-ferencia=INT (TIME/300) 

60 WHILE hora<13 
70 WHILE minuto<60 
80 WHILE tiempo<60 

90 t i empo= (I NT (TI ME / 300) -re-ferencia) +segundo 
100 LOCATE 1,1 

110 PRINT USING "## ";hora,mi ñuto,tiempo 
120 WEND 

130 tiempo= 0 :segundo=0:minuto=minuto+1 
140 GOTO 50 
150 WEND 

160 mi nuto=0:hora=hora+l 
170 WEND 
180 hora=l 
190 GOTO 60 


Función. Da el tiempo transcurrido desde el momento en que se encendió o reinicializó 
la máquina por última vez (excluyendo el dedicado a escribir o leer en el disco), en uni¬ 
dades de 1/300 s. Expresado en segundos, el tiempo es, pues, TIME/300. 

Palabras clave asociadas: AFTER, EVERY, WEND, WHILE. 


TO 

Véase FOR. 
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TROFF 

TRON 


TROFF 

TRON 

10 TROFF:PRINT:PRINT "TROFF" 

20 FOR n=l TO 8 

30 PRINT "Programa -funcionando" :NEXT 
40 IF f=l THEN END 
50 TRON:PRINT:PRINT "TRON" 

60 f=l:GOTO 20 
r u n 

Orden. Sigue la ‘traza’ del programa escribiendo los números de cada línea antes de 
ejecutarla. Los números de línea aparecen entre corchetes t ]. 

TRON activa este modo; TROFF lo desactiva. 

TRON es particularmente útil para estudiar la secuencia de números de línea anterior 
al momento en que se produce un error. 

Palabras clave asociadas: ninguna. 


UNT 


UNT ((expresión de dirección de íeioria)) 

PRINT UNT(EcFF66) 

-154 

Orden. Da un entero, comprendido entre -32768 y +32767, que es el equivalente en 
‘complemento a dos’ al valor de (expresión de dirección de memoria). 

Palabras clave asociadas: CINT, FIX, INT, ROUND. 


UPPER$ 

UPPER$((expresión literal)) 

10 CLS:a$="mire como crecen!" 

20 PRINT UPPER$ía$) 
run 

Función. Da una cadena literal que es copia de la (expresión literal) especificada, pero 
convirtiendo las letras minúsculas en mayúsculas y dejando inalterados los restantes ca- 
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racteres. Esta función es útil en el proceso de datos que puedan contener minúsculas 
mezcladas con mayúsculas. 

Palabras clave asociadas: LOWER$. 


USING 

Véase PRINT USING. 

VAL 


VAL ((expresión literal)) 

10 CLS:PRINT "Ya he aprendido la tabla de multiplicar" 
20 PRINT:PRINT "Pulse una tecla del 1 al 9:" 

30 a*=INKEY<*¡: IF a$¡="" THEN 30 

40 n=VAL(a$):IF n<l OR n>9 THEN 30 

50 FOR x = l TO 10 

60 PRINT n;"x"5 X;" = ";n*x 

70 NEXT:GOTO 20 

run 

Función. Da el valor numérico (incluyendo el signo y el punto decimal) de los primeros 
caracteres de la <expresión literal) que sean dígitos. 

Si el primer carácter no es un dígito, el valor generado es 0. Si el primer carácter es 
el signo menos o el punto decimal y va seguido de caracteres no numéricos, se provoca 
el mensaje ‘Type mismatch’ (‘incongruencia de tipos’, error número 13). 

Palabras clave asociadas: STR$. 


ypos 


VPQS (tt'exnreaion de nuiero de canal)) 

10 MODE 1:EORDER 0:LOCATE 8,2 

20 PRINT "Utilice las teclas subir/bajar cursor" 
30 WINDOW 39,39,1,25:CURSOR 1,1 
40 LOCATE 1, 13 

50 IFINKEY (0)0-1 THEN PRINT CHRS(ll); 

60 IF INKEY (2)0-1 THEN PRINT CHR$(10); 

70 LOCATE #1,1,23 

80 PRINT #1,"Posición vertical del" 

90 PRINT #1,"cursor de texto ="; 

100 PRINT #i,VPOS(#0):GOTO 50 
run 
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Función. Da la posición vertical del cursor de texto, referida al extremo superior de 
la ventana. Es necesario especificar la <expresión de número de canal), pues el ordena¬ 
dor no da por supuesto el #0. 


WAIT 

WAIT (nuiero de puerta), («aseara)!, (inversión)) 

WAIT 8tFF34,20,25 

Orden. Espera hasta que por la puerta de entrada/salida especificada por (número de 
puerta) se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el 
valor recibido y el parámetro (inversión) se realiza la operación lógica XOR; con este 
resultado y el parámetro (máscara) se realiza la operación lógica AND; el proceso se 
repite hasta que el resultado final sea distinto de cero. 

BASIC espera indefinidamente hasta que se cumple la condición requerida. 

Esta orden no debe ser utilizada por quien no sepa cuáles son sus efectos. 

Palabras clave asociadas: INP, OUT. 


WEND 

WEND 

WEND 

Orden. Señala el final del grupo de instrucciones cuya ejecución se repite en un bucle 
del tipo WHILE. BASIC determina automáticamente a qué WHILE corresponde cada 

WEND. 

Palabras clave asociadas: TIME, WHILE. 


WHILE 

WHILE (expresión lógica) 

10 CLS:PRINT "Tempor izador de 10 segundos":t=TIME 

20 WHILE TIME< t+3000 

30 SOUND 1,0,100,15 

40 WEND:SOUND 129,40,30,15 

run 
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Orden. Repite la ejecución de un grupo de instrucciones mientras se cumpla cierta con¬ 
dición. La orden WHILE señala el principio del bucle y especifica la condición lógica 
mediante la (expresión lógica). 

Palabras clave asociadas: TIME, WEIMD. 


WIDTH 

WIDTH texpresion entera) 

WIDTH 40 

Orden. Informa a BASIC de cuántos caractes por línea se deben enviar a la impresora. 
BASIC envía a la impresora los códigos de retorno del carro y avance de línea en el 
momento adecuado. 

El valor implícito es 132. 

La orden WIDTH 255 suprime los códigos de retorno del carro y avance de línea, de¬ 
jando que el número de caracteres por línea sea totalmente controlado por la impreso¬ 
ra. En todo caso, la orden PRINT envía a la impresora esos dos códigos siempre que 
no se incluya el signo de punto y coma al final. 

Palabras clave asociadas: POS. 


WINDOW 

WINDOW [ tKexpresion de nuiero de canal), Hizquierda), (derecha), (arriba), (abajo) 

10 MODE 0:BORDER 0:REM carta de ajuste 
20 INK 0,0:INK 1,25:INK 2,23:INK 3,21 
30 INK 4,17:INK 5,6:INK Ó,2:INK 7,26 
40 PAPER 0:CLS 

50 PAPER 1:WINDOW 2,4,1,18:CLS 
Ó0 PAPER 2:WINDOW 5,7,i,18:CLS 
70 PAPER 3:WINDOW 8,10,1,18:CLS 
80 PAPER 4:WINDOW 11,13,1,18:CLS 
90 PAPER 5:WINDOW 14,16,1,18:CLS 
100 PAPER ó:WINDOW 17,19,1,13:CLS 
110 PAPER 7:WINDOW 2,19,19,25:CLS 
120 GOTO 120 
run 


Orden. Especifica las dimensiones y situación de una ventana de texto. Los valores de 
los parámetros (izquierda), (derecha), (arriba) y (abajo) indican los números extre¬ 
mos de columna y de fila, y deben ser consistentes con el modo de pantalla actual. 
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Si no se especifica la <expresión de número de canal), BASIC supone el # 0 . 

En la parte 2 del capítulo titulado ‘Cuando usted guste ... ’ daremos más información 
sobre ventanas de texto. 

Palabras clave asociadas: WINDOW SWAP. 


WINDOW SWAP 

WINDOW SWAP (expresión de misero de canal),(expresión de misero de canal) 

10 MODE l:INK 1,24:IMK 2,9:INK 3,6 
20 WINDOW 21,40,13,25:PAPER 3 
30 WINDOW #1,1,20,1,12:PAPER #1,2 
40 CLS:PRINT " Ventana numero 0" 

50 CLS #1:PRINT #1," Ventana numero 1" 

60 LOCATE 1,6 

70 PRINT " Ventana roja <0)";SPC(2) 

80 LOCATE #1,1,6 

90 PRINT #1," Ventana verde (1)" 

100 FOR t=l TO 1000:NEXT 
110 WINDOW SWAP 0,1 .-GOTO 60 
r u n 

Orden. Intercambia las características de las dos ventanas de texto especificadas por 
las (expresiones de número de canal). 

Se deben especificar los dos números de canal, pero en este caso no deben ir precedidos 
del signo #. 

En la parte 2 del capítulo titulado ‘Cuando usted guste ... ’ daremos más información 
sobre ventanas de texto. 

Palabras clave asociadas: WINDOW. 


WRITE 

WRITE I#(expresión de muero de canal), 1 [<lista de datos)] 

10 REM escribir variables en disco 
20 INPLIT "Escriba un numero: ",a 
30 INPUT "Escriba una palabra: ",a$ 

40 OPENOUT "datos" 

50 WRITE #9,a,a$ 

60 CLOSEOUT:PRINT "Datos grabados en disco 
run 
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Orden. Envía los valores de los elementos de la <lista de datos) al canal especificado 
por la <expresión de número de canal). Los elementos irán separados por comas; las 
cadenas literales irán entre comillas. 

En el ejemplo anterior, los valores captados por el teclado son enviados al canal #9 
(disco). 

Para leer esos valores después de grabarlos en disco, se necesita un programa tal como 
el siguiente: 

10 REM leer variables del disco 
20 DPENIN "datos":INPÜT #9,a,aí 
30 CLOSEIN:PRINT “Los dos valores son:" 

40 PRINT:PRINT a,a$ 
run 

Palabras clave asociadas: INPUT, LINE INPUT. 


XOR 

<argu»e#to) XOR targuiento) 

IF •juan'Ppepe 1 XOR ■perro 1 Pgato 1 THE» PRINT Verdadero 1 ELSE PRINT •falso 1 
falso 

IF "pepe'Pjuan 1 XOR ’gatoV'perro 1 THEN PRINT 'verdadero 1 ELSE PRINT 'falso 1 
falso 

IF 'juanVpepe 1 XOR 'gatoVperro 1 THEN PRINT 'verdadero 1 ELSE PRINT 'falso' 
verdadero 

PRINT 1 XOR 1 

I 

PRINT i XOR i 

I 

PRINT 1 XGR i 
1 

Operador. Realiza la operación lógica ‘o exclusivo’ bit a bit entre enteros. El resultado 
es 1 a menos que ambos bits tengan el mismo valor. 

Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítu¬ 
lo titulado ‘Cuando usted guste ...’. 

Palabras clave asociadas: AND, OR, NOT. 
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XPOS 


XPOS 

10 MODE l:DRAW 320,200 

20 PRINT "Posición horizontal del cursor gra-fico = "; 

30 PRINT XPOS 

run 

Función. Da el valor de la posición horizontal (coordenada x) del cursor gráfico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, YPOS. 


YPOS 

YPOS 

10 MODE 1ZDRAW 320,200 

20 PRINT "Posición vertical del cursor gráfico ="; 

30 PRINT YPOS 

run 

Función. Da el valor de la posición vertical (coordenada y) del cursor gráfico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, XPOS. 


ZONE 

ZONE (expresión entera) 

10 CLS:FOR z=2 TO 20 
20 ZONE z 

30 PRINT "X","X ZONE ="jz:NEXT 
run 

Orden. Cambia la anchura de la zona de escritura (especificada en las instrucciones 
PRINT cuando se utiliza una coma para separar elementos). La achura implícita es 13 
columnas, pero se la puede cambiar al valor dado por la (expresión entera), cuyo mar¬ 
gen es de 1 a 255. 

Palabras clave asociadas: PRINT. 
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Capítulo 4 
Discos y cintas 


Parte 1: Discos 

Discos de trabajo 

En esta sección vamos a explicar cómo preparar discos para el trabajo 
diario y a presentar algunas funciones de CP/M y sus programas de 
ayuda. 

Temas tratados: 

* Copia de los discos maestros. 

* Introducción a CP/M Plus. 

* Utilización de los ficheros HELP. 

* Utilización de una y dos unidades de disco. 

* Copia de ficheros con PIP. 

* Trabajo con discos para BASIC (sin CP/M). 

* Instalación de aplicaciones “llave en mano” en BASIC de 
AMSTRAD. 

* Instalación de aplicaciones “llave en mano” en CP/M Plus. 

* Introducción al GSX. 

* Trabajo con CP/M 2.2. 

En la parte 7 del ‘Curso de introducción’ hemos explicado cómo inicializar un disco 
virgen para utilizarlo tanto con BASIC como con CP/M. 

En la parte 10 del ‘Curso de introducción’ vimos cómo copiar discos con el programa 
DISCKIT3 (cara 1 del juego de discos del sistema). 

En esta sección vamos a abordar la preparación de discos con los programas deseados. 


Copia de los discos maestros 

Es muy importante hacer una copia de los discos maestros del sistema y de ayudas que 
se suministran con el ordenador y guardar en lugar seguro los originales, pues sería 
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muy costoso sustituirlos si resultaran dañados. Recuerde que cada disco tiene dos ca¬ 
ras, por lo que en los discos maestros hay en total cuatro caras: 

La cara 1 es la más importante; contiene el sistema operativo CP/M Plus y un conjunto 
de programas de ayuda para el manejo de discos. 

La cara 2 contiene una serie de ficheros para programación en ensamblador. 

La cara 3 contiene Dr. LOGO, diversos ficheros ‘HELP’ y el sistema GSX (que descri¬ 
biremos más adelante). 

La cara 4 contiene el CP/M 2.2 y el Dr. LOGO que se suministra con los modelos 
CPC664 y CPC464+DDI1; los incluimos por razones de compatibilidad, pero normal¬ 
mente no serán necesarios. 

Considere sus copias de los discos maestros como una ‘biblioteca’ de programas. Para 
ejecutar uno de estos programas, el procedimiento habitual es insertar en la unidad el 
‘disco de biblioteca’ en el que se encuentre el programa y cargarlo con él, en lugar de 
copiar el programa en un disco nuevo y cargarlo desde éste. 

Insistimos una vez más en que los ‘discos de biblioteca’ para el trabajo diario tienen 
que ser copias de los discos maestros que se suministran con el ordenador. 

Recuerde que el programa DISCKIT3 (cara 1) inicializa el disco destino al mismo tiem¬ 
po que copia, de modo que se puede hacer una copia en un disco virgen sin necesidad 
de inicializarlo previamente. 


Introducción a CP/M Plus 

El lector ya se habrá habituado a trabajar con el BASIC de AMSTRAD, programa que 
controla el CPC6128 desde el momento en que se lo enciende hasta que, o bien se ejecu¬ 
ta algún programa binario desde AMSDOS, o bien se carga CP/M Plus con la orden 
externa Icpm. 

Una vez cargado CP/M Plus, el ordenador no necesita volver a leer la cara 1 (salvo, 
por supuesto, que se quiera cargar alguno de los programas de ayuda que están graba¬ 
dos en esa cara). Por esta razón, el disco de arranque es el único que tiene que ser un 
disco de sistema; todos los demás pueden tener formato ‘de datos’, lo que les da mayor 
capacidad de almacenamiento. 

Para ejecutar un programa de CP/M lo único que hay que hacer es insertar el disco 
en el que esté grabado y escribir el nombre del programa. Los datos utilizados por el 
programa pueden estar en el mismo disco o en otro. CP/M Plus permite cambiar dis¬ 
cos, lo mismo que AMSDOS. Si por comodidad se prefiere agrupar varios programas 
en un mismo disco, quizá junto con algunos programas de ayuda, se puede utilizar el 
programa PIP de la cara 1 según explicaremos más adelante (en este capítulo y en el 
siguiente). 


4/2 


Discos y cintas 


El programa PROFILE 


El disco del sistema contiene un fichero especial, llamado PROFILE.SUB, que contiene 
una serie de órdenes que se ejecutan automáticamente en el momento de cargar CP/M 
Plus. Si no lo ha hecho todavía, inserte en la unidad una copia de la cara 1 de los discos 
maestros, cargue CP/M Plus y, cuando aparezca el mensaje A>, escriba: 

REN PROFILE.SUB=PROFILE.ENG 

Esta orden ha creado el fichero PROFILE.SUB a partir de PROFILE.ENG cambiándo¬ 
le el nombre (REN es abreviatura de rename, “renombrar”). Este fichero, que será eje¬ 
cutado siempre que se cargue CP/M Plus, contiene las siguientes órdenes: 

SETKEYS KEYS.CCP 
LANGUAGE 3 

las cuales modifican la función de las teclas del cursor (para adaptarlas a la escritura 
de órdenes de CP/M) y transforman la salida por la pantalla de la versión EE.UU. a 
la versión UK (Reino Unido), haciendo que la tecla [SHIFT13 genere el símbolo *£’. 

Cuando el teclado ha sido preparado con la orden SETKEYS.CCP, las líneas de órde¬ 
nes de CP/M se pueden editar de forma similar a como se hace en BASIC. En el capítu¬ 
lo 5, parte 2, explicaremos SETKEYS detalladamente. 


El programa HELP 

En la cara 3 de los discos del sistema está grabado un programa especial, llamado 
HELP; es una especie de manual de instrucciones electrónico que describe los progra¬ 
mas de ayuda de CP/M Plus. Para ejecutar este programa, inserte la cara 3 y escriba, 
tras el mensaje A>, lo siguiente: 

HELP 

El programa le hará las preguntas y le pedirá las respuestas necesarias para guiarle has¬ 
ta la información requerida. 


¿Cuántas unidades de disco? 

Cuando se carga CP/M Plus, una de sus primeras acciones es detectar cuántas unidades 
de disco hay conectadas. Este número se visualiza como parte del mensaje de presenta- . 


Discos y cintas 


4/3 



ción. El resultado de la comprobación se puede falsear si en la segunda unidad hay un 
disco parcialmente insertado. 

Todos los mensajes de error relativos a los mecanismos de las unidades de disco se vi¬ 
sualizan en la línea 25, en forma de cinta “sin fin”. Los programas solamente utilizan 
las primeras 24 líneas de la pantalla. 

Cuando solamente se dispone de la unidad de disco incorporada al ordenador, en la 
última línea de la pantalla aparece también el mensaje ‘Drive is A:’ o ‘Drive ¡s B:’ 
(“la unidad es ... ”). De esta forma CP/M Plus permite utilizar un sólo dispositivo 
físico como si se tratase de dos. Cuando sea necesario, el usuario tendrá que intercam¬ 
biar los discos; el ordenador pedirá en cada momento el disco requerido por el progra¬ 
ma. Este sistema hace que no sea imprescindible comprar la segunda unidad de disco, 
pero no puede evitar la necesidad de intercambiar los discos, a veces muy frecuente¬ 
mente, lo que representa una considerable pérdida de tiempo y un riesgo de error 
humano. 


Copia de ficheros de un disco a otro 

El programa de ayuda PIP (abreviatura de PeriferalInterchange Program, “programa 
de intercambio entre periféricos”) permite, entre otras cosas, copiar ficheros de un dis¬ 
co a otro: 

Para cargar PIP, inserte en la unidad la cara 1 y escriba, tras el mensaje A>, lo 
siguiente: 

PIP 

Un nuevo signo ‘inductor’, el *, indicará que PIP ha quedado cargado correctamente. 
Normalmente se copiará de un disco fuente (en la unidad A:) a un disco destino (en 
la unidad B:). Ya hemos visto que en los sistemas de una sola unidad de disco las unida¬ 
des A: y B: son el mismo dispositivo físico. 

Para copiar un fichero (por ejemplo, el SUBMIT.COM), escriba después del * lo 
siguiente: 

B:=A:SUBMIT.COM 

Para copiar todos los ficheros del disco fuente al disco destino, escriba: 

Para abandonar PIP, pulse [RETURN] tras el inductor *. 

PIP es un programa muy complejo. En el capítulo 5 lo describiremos más detallada¬ 
mente. 
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Disco para BASIC (sin CP/M) 


Como ya hemos mencionado, el único disco que se necesita con formato de sistema 
es el que se utiliza para cargar CP/M Plus. Por lo tanto, los discos destinados a BASIC 
pueden tener formato ‘de datos’, con el cual la capacidad de almacenamiento es algo 
mayor. 

El disco debe ser inicializado con el programa DISCKIT3. Para copiar programas se 
puede utilizar PIP (cara 1), o bien cargarlos (LOAD) y grabarlos (SAVE) desde BASIC. 


Discos llave en mano de BASIC de AMSTRAD 

Si usted compra una aplicación escrita en BASIC de AMSTRAD para el CPC6128, de¬ 
bería estar lista para funcionar sin más preparativos. Todo lo que tendrá que hacer es 
copiarla en un disco de trabajo y guardar el original. 


Programas llave en mano de CP/M 

El sistema operativo CP/M permite disponer de una inmensa variedad de programas 
que han sido escritos para los ordenadores personales que pueden trabajar con CP/M. 
El funcionamiento básico de los programas ya está decidido; todo lo que hay que hacer 
es instalarlos en un disco adecuado y quizá informarles del método de gestión de la pan¬ 
talla característico del CPC6128. 

Un conjunto de programas diseñado para realizar una aplicación específica es lo que 
se denomina un ‘paquete’. Los paquetes están diseñados normalmente para funcionar 
en diversos ordenadores, cada uno de los cuales tendrá un propio método de gestión 
de la pantalla y de movimiento del cursor. 

El CPC6128, cuando funciona con CP/M, está dotado de un ‘emulador de consola’; 
las características son diferentes de los códigos de control utilizados por BASIC. 

En ocasiones el paquete que usted adquiere ya habrá sido ‘instalado’ en el Amstrad; 
de lo contrario, ofrecerá un menú para realizar la adaptación. Si el programa da ins¬ 
trucciones para el protocolo Zenith Z19/Z29, sígalas. Si no menciona esta variante ni 
tampoco una específica de Amstrad, consulte la sección titulada ‘Configuración de un 
programa en CP/M’, en la que se indica qué códigos se deben mandar a la pantalla 
para producir los efectos requeridos por los paquetes. Generalmente, la instalación (o 
adaptación) requerirá que se tecleen los códigos adecuados cuando el programa lo pida. 
Siga, en todo caso, las instrucciones suministradas con los programas. 
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El paquete que usted adquiera tiene que estar en un disco adecuado para este sistema. 
Casi todos los ordenadores tienen su propio formato de disco. Aunque el tamaño sea 
el mismo, no por ello está garantizada la compatibilidad. Al comprar un paquete de 
programas, pida a su proveedor la versión para Amstrad CPC6128 en discos de 3 
pulgadas. 


Creación de un disco de trabajo para programas 
llave en mano de CP/M 


Es aconsejable copiar los programas del paquete en otro disco y guardar el original. 
Además, suele ser conveniente copiar en el mismo disco el programa SETKEYS.COM, 
y quizá también SUBMIT.COM (con sus correspondientes ficheros de instrucciones). 

Se puede utilizar PIP para copiar los ficheros .COM, y también para elaborar un fiche¬ 
ro de instrucciones para SUBMIT. En esta última aplicación PIP funciona como senci¬ 
llo editor de líneas. Por ejemplo, el fichero L0G03.SUB de la cara 3 se podría haber 
creado de la siguiente forma: 

(Inserte el disco del sistema, cara 1, en la unidad A:.) Escriba: 

PIP 

(Extraiga el disco del sistema e inserte el de destino.) Escriba: 

L0G03.SUE=CON: 

SETKEYS KEYS.DRL 

[CONTROL3J LQG03 
[CONTROL3Z 


Configuración de un programa de CP/M 

El CPC6128 maneja una amplia variedad de códigos de control, gracias a los cuales 
se lo puede adaptar a cualquier programa escrito para CP/M. La mayor parte de los 
programas de proceso de datos, así como muchos otros paquetes de aplicaciones, nece¬ 
sitan poder escribir mensajes en determinados lugares de la pantalla, leer caracteres es¬ 
critos en ella y entender los códigos de movimiento del cursor. 

Si su paquete de programas ya ha sido adaptado al ordenador Amstrad, no es necesario 
que se preocupe por estas cuestiones. 
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Configuración de la salida de un paquete 

La instalación de un paquete requiere normalmente la ejecución de un programa espe¬ 
cial (habitualmente llamado INSTALL) el cual, si no menciona terminales del tipo 
Z19/Z29 ni el CPC6128 específicamente, hará al usuario una serie de preguntas sobre 
las características de la pantalla del 6128. Para introducir las respuestas necesitará con¬ 
sultar la tabla siguiente, que es un resumen de la parte 15 del capítulo 7. 


Códigos 
de control 

Hexadecimal 

Decimal 

Operación 

[BEL] 


&07 

7 

Producir un pitido 

[BS] 


&08 

8 

Cursor a la izquierda una posición 

[LF] 


&0A 

10 

Cursor abajo una línea 

[CR] 


&0D 

13 

Cursor al borde izquierdo de la ventana, en la 
línea actual 

[ESC] A 

&1B 

&41 

27 65 

Cursor arriba una línea 

[ESC]C 

&1B 

&43 

27 67 

Cursor a la derecha una posición 

[ESC]E 

&1B 

&45 

27 69 

Borrar pantalla 

[ESC]H 

&1B 

&48 

27 72 

Cursor a su posición inicial (extremo superior 
izquierdo de la ventana) 

[ESC]J 

&1B 

&4A 

27 74 

Borrar desde la posición actual del cursor inclu¬ 
sive hasta el final de la pantalla 

[ESC]K 

&1B 

&4B 

27 75 

Borrar desde la posición actual del cursor inclu¬ 
sive hasta el borde derecho de la pantalla 

[ESC]L 

&1B 

&4C 

27 76 

Insertar línea 

[ESC]M 

&1B 

&4D 

27 77 

Borrar línea 

[ESC]N 

&1B 

&4E 

27 78 

Borrar el carácter que está en la posición del 
cursor 

[ESC]Y 

&1B 

&59 

27 89 

Llevar el cursor hasta la posición especificada 
de la pantalla, donde <c> es el número de co- 


<c)<f) 

<c)<f) 

lumna más 32 y <f> es el número de fila más 
32 

Borrar desde el principio de la pantalla hasta la 
posición actual del cursor inclusive 

[ESC]d 

&1B 

&64 

27 100 

[ESC]o 

&1B 

&6F 

27 111 

Borrar desde el borde izquierdo de la pantalla 
hasta la posición actual del cursor inclusive 

[ESC]p 

&1B 

&70 

27 112 

Activar video inverso (intercambio de colores 
de papel y pluma) 

[ESC]q 

&1B 

&70 

27 113 

Desactivar video inverso 
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Configuración de la entrada a un paquete 


Los programas del paquete generalmente necesitarán captar datos a través del teclado. 
Casi todas las teclas del CPC6128 generan valores estándar, a excepción de las de movi¬ 
miento del cursor. Se puede utilizar SETKEYS para redefinir los códigos producidos 
por el teclado; sin embargo, es preferible adaptar cada programa para que acepte los 
códigos estándar. 

Lamentablemente, no hay ninguna norma general común a todos los programas en 
cuanto a qué teclas se deben pulsar para realizar las diversas funciones de control. Los 
caracteres visibles, el ‘espacio’, [TAB] y [RETURN] están bastante estadarizados; pero 
en cambio es notorio el desacuerdo en el ‘retroceso del cursor’, y mucho más en las 
restantes funciones. Compárese, por ejemplo, los códigos que significan ‘cursor al 
principio de línea’ en los siguientes casos: 

En CP/M: [CONTROLJB 
En Dr. LOGO: [CONTROLJA 

En ciertos procesadores de texto: [CONTROLjQ S 

Con los discos del sistema se suministran tres juegos de definiciones del teclado (parte 
2 del capítulo 5). Por ejemplo, 

SETKEYS KEYS.CCP 

orden ya descrita como una de las que ejecuta automáticamente el programa PROFI- 
LE.SUB, adapta el teclado para la escritura de órdenes de CP/M. 


Ejecución de un paquete llave en mano de CP/M 


Normalmente, basta con escribir el nombre del programa a la derecha del mensaje in¬ 
ductor A> . Por ejemplo, para poner en marcha un programa de nóminas llamado NO- 
MINAS.COM se escribiría, sencillamente, 

NOMINAS 


Si alguna configuración requiere cierta preparación, quizá incluya un fichero de tipo 
•SUB. Un ejemplo es el L0G03.SUB que está grabado en la cara 3. Este fichero se 
invoca mediante la orden 

SUBMIT L0G03 


4/8 


Discos y cintas 


Para examinar el fichero se puede escribir 


TYPE L0G03.SUE 

y se comprueba que contiene 

SETKEYS KEYS. DRL ... para redefinir el teclado 

L0G03 ... para ejecutar el programa Dr. LOGO 

SETKEYS KEYS. CCP ... para devolver el teclado a la situación inicial 

Arranque automático de un paquete llave en 
mano en CP/M 

Se puede hacer que cada vez que se cargue el sistema operativo CP/M Plus con el disco 
de arranque, el propio sistema ponga en marcha un programa concreto. La forma de 
conseguirlo es poner el nombre del programa al final del fichero PROFILE.SUB que 
haya en ese disco. 


Introducción al GSX 

GSX es un sistema de gestión de gráficos que permite a los programas de CP/M dar 
como salida gráficos además de texto. Se utiliza GSX para aplicaciones tales como di¬ 
bujar diagramas de barras y de sectores o para escribir encabezamientos y textos con 
tipos de letra y tamaños distintos de los normales. En la figura siguiente se muestra 
una reproducción de una salida típica obtenida con GSX. Las salidas se pueden dirigir 
a la pantalla, a una impresora o a un plotter. 

El sistema GSX por sí mismo no es capaz de dibujar, por lo mismo que CP/M no puede 
realizar proceso de textos: se requiere en cada caso un programa específico. El ejemplo 
de la figura se obtuvo mediante el programa ‘DR Graph’ de Digital Research. Lo que 
sí hace GSX es estandarizar el acceso a pantallas, impresoras y plotters, de forma que 
los programas de aplicación sean transportables de unas máquinas a otras sin requerir 
más que un mínimo de trabajo de reinstalación. 

Para crear un disco con el que se puedan ejecutar programas GSX, copie (de la cara 
3), mediante PIP, los ficheros GSX.SYS, ASSIGN.SYS y los controladores de dispo¬ 
sitivo requeridos (junto con el propio programa de aplicación) en un disco vacío. El 
fichero ASSIGN.SYS contiene una lista de hasta tres controladores de dispositivo, en 
orden inverso de su tamaño: 
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21 a:dd+xlr7 ¡ Epson 7 bit prínter impresora Epson de 7 bits 
11 a:ddhp7470 ; Pen plotter plotter 

01 a:ddmode2 ; Screen in mode 2 pantalla en modo 2 

02 a:ddmodel ; Screen in made 1 pantalla en modo 1 

03 a:ddmode0 5 Screen in mode 0 pantalla en modo 0 

Los números (01 a 21) informan a GSX del tipo de dispositivo de que se trata (impreso¬ 
ra, plotter o pantalla). En todo momento no hay más que un controlador de dispositivo 
cargado en la memoria; por eso GSX necesita conocer el tamaño del mayor con el fin 
de reservarle el espacio necesario. 

Con los discos se proporcionan diversos controladores para los tres modos de pantalla 
del 6128 y para las impresoras y plotters estándar. El fichero DRIVERS.GSX contiene 
una lista de los disponibles. Lea este fichero insertando en la unidad la cara 3 y escri¬ 
biendo tras el mensaje A> lo siguiente: 

TYPE DRIVERS.GSX 

para seleccionar los controladores de dispositivo requeridos. 
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Normalmente los programas de aplicación incluirán un cargador de GSX, de modo que 
para ejecutar el programa bastará con escribir el nombre del programa en respuesta 
al mensaje A> . No obstante, si su aplicación no tiene instalado el cargador de GSX, 
copie el fichero GENGRAF.COM (cara 3) en su disco de trabajo y luego escriba 

GENGRAF PROGRAMA 

donde PROGRAMA.COM es el nombre de la aplicación no instalada. Ahora puede 
borrar GENGRAF.COM, puesto que PROGRAMA.COM ya contiene el cargador de 
GSX. 


Trabajo con CP/M 2.2 

A diferencia de CP/M Plus, CP/M 2.2 (que es una versión anterior) es muy exigente 
en cuanto al cambio de discos. Frecuentemente requiere que se vuelva a cargar parte 
del sistema operativo con un disco de sistema instalado en la unidad A:, en particular 
cuando reaparece el mensaje inductor A> después de ejecutar un programa. Por esta 
razón se suelen utilizar con CP/M 2.2 discos con formato de sistema. Cuando no se 
dispone de segunda unidad de disco, para copiar ficheros hay que utilizar FILECOPY 
en lugar de PIP. 

Se recomienda no utilizar CP/M 2.2 más que para ejecutar programas diseñados para 
los modelos CPC664 y CPC464+DDI1, los cuales pueden no ser compatibles con 
CP/M Plus. 


Advertencia. Algunas aplicaciones escritas para los modelos CPC664 y 
CPC464+DDI1 contienen ciertas instrucciones específicas de la máquina y no 
funcionarán, por tanto, con CP/M Plus. En tales casos será necesario utilizar 
CP/M 2.2, que está grabado en la cara 4 del juego de discos que se suministra con 
el ordenador CPC6128. 
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Parte 2: Cintas 


Se puede conectar un magnetófono de cassettes al sistema (según se explicó en la parte 
2 del ‘Curso de introducción’). Cuando se especifica el funcionamiento con magnetófo¬ 
no mediante la orden ¡tape, algunas instrucciones de BASIC funcionan de forma dife¬ 
rente. Por ejemplo, en la pantalla se verán ciertos mensajes que no aparecen cuando 
se está trabajando con discos. 

Nota. En algunos magnetófonos las funciones de avance rápido y rebobinado están 
controladas por el control remoto. En tal caso, para hacer avanzar o retroceder 
la cinta en modo rápido se debe, o bien desconectar la clavija REM del magnetó¬ 
fono, o bien escribir la orden !TAPE:CAT, con el fin de activar el movimiento 
del motor. La orden CAT se cancela con la tecla [ESC]. 

A diferencia de lo que ocurre con el sistema de grabación en disco, los nombres de los 
ficheros que se graban en cinta no tienen que sujetarse a normas estrictas. Pueden cons¬ 
tar de hasta 16 caracteres y contener espacios y signos de puntuación. En determinados 
casos, ni siquiera son necesarios. 

A continuación damos una lista de las diferencias entre las dos versiones (cinta y disco) 
de las instrucciones citadas. Las descripciones de las instrucciones se encuentran en el 
capítulo 3 (‘Lista completa de las palabras clave del BASIC de AMSTRAD’). 


CAT 

El ordenador le pedirá que: 

Press PLAY then arvy key: 

(‘Pulse PLAY y luego cualquier tecla.’) Usted debe pulsar el botón PLAY (‘reprodu¬ 
cir’) del magnetófono y después una de las teclas del ordenador. El motor del magnetó¬ 
fono empezará a moverse y el ordenador escribirá en la pantalla la lista de los ficheros 
que haya en la cinta a medida que los vaya encontrando. 

Para cada fichero se mostrará cada uno de los bloques integrantes, seguidos de un ca¬ 
rácter que indica el tipo de fichero: 

$ fichero de BASIC no protegido 

% fichero de BASIC protegido 

* fichero ASCII 

& fichero binario 

El ordenador escribe 
Ok 
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al final de la línea cuando ha terminado de leer sin incidentes el fichero; esto indica 
que habría podido cargar el fichero en memoria si lo hubiera intentado. 

La instrucción CAT no afecta al programa residente en la memoria del ordenador. 

Si un fichero ha sido grabado sin nombre, CAT escribe 

Unriamed -file 

(‘fichero sin nombre’). 

EL proceso se puede interrumpir en cualquier momento pulsando [ESC]. 


Errores de lectura 

Si no aparecen en la pantalla los mensajes mencionados, o si aparece 
Read er r or- a . . . o bien . . . Read er ror b 
puede estar ocurriendo lo siguiente: 

1. El magnetófono no está conectado correctamente en el zócalo CINTA del ordena¬ 
dor (véase la parte 2 del ‘Curso de introducción’). 

2. No está correctamente ajustado el control VOLUMEN del magnetófono. 

3.. La cinta está gastada o es de baja calidad. 

4. La cinta ha estado sometida a un campo magnético (se la ha dejado cerca de un alta¬ 
voz, televisor, etc.). 

5. Se está tratando de leer una cinta incompatible con los ordenadores AMSTRAD. 

CHAIN 

CHAIN MERGE 
LOAD 
MERGE 
RUN 

No es necesario especificar el nombre del programa si se pretende leer el primero que 
el ordenador encuentre en la cinta. Ejemplos: 

CHAIN "" 

CHAIN "",100 

CHAIN MERGE "" 

CHAIN MERGE "100 

CHAIN MERGE "",100,DELETE 30-70 

LOAD "" 

LOAD " H ,fclF40 
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MERGE 


II II 


RUN "" 

(Nótese que esta última orden se ejecuta pulsando la tecla [INTRO] en combinación 
con [CTRLH; previamente se debe haber ejecutado ¡tape.) 

El ordenador le pedirá que: 

Press PLAY then any key: 


(‘Pulse PLAY y luego cualquier tecla.’) Usted debe pulsar el botón PLAY del magnetó¬ 
fono y después una de las teclas del ordenador. El motor del magnetófono empezará 
a moverse y el ordenador cargará el fichero. 

En la pantalla se mostrarán los mensajes de carga: 

Loading NOMBREFI block 1 


y así sucesivamente para los restantes bloques hasta que el fichero esté cargado. 

Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados, 
y usted debe asegurarse de que ha pulsado el botón PLAY. En el caso de los ficheros 
grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta 
a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 
Broken ir» 


Si no consigue cargar el fichero, lea el apartado ‘Errores de lectura’ anterior. 


¡Atención! El interfaz del disco ocupa una pequeña porción de la memoria del orde¬ 
nador, la cual ha sido aprovechada en algunos programas comerciales escritos para 
ser cargados en el CPC464 desde la cinta. Tales programas no funcionarán correcta¬ 
mente en el CPC6128. 


EOF 

POS(#9) 

Estas funciones operan igual con cinta que con disco. 
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INPUT #9 
LINE INPUT #9 
OPENIN 
CLOSEIN 

No es necesario especificar el nombre del fichero si se desea leer el primer fichero que 
el ordenador encuentre en la cinta. Ejemplo: 

OPENIN "" 

El ordenador le pide que: 

Press PLAY then any Uey: 

(‘Pulse PLAY y luego cualquier tecla.’) Usted debe pulsar el botón PLAY del magnetó¬ 
fono y después una de las teclas del ordenador. La cinta empezará a moverse y el orde¬ 
nador cargará los primeros 2K del fichero en una zona de memoria denominada ham¬ 
pón’ . El programa toma los datos del tampón. Cuando se vacía, el ordenador vuelve 
a emitir el mensaje: 

Press FLAY then any Uey: 

y carga los 2K siguientes. 

En la pantalla van apareciendo los mensajes de carga: 

Loading NOMBREFI blocU 1 
para los sucesivos bloques. 

Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado el botón PLAY. En el caso de los ficheros 
grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta 
a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 
BroUen in 

Si no consigue cargar el fichero, lea el apartado ‘Errores de lectura’ anterior. 
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LIST #9 
OPENOUT 
CLOSEOUT 
PRINT #9 
WRITE #9 

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed 
file (fichero sin nombre). Ejemplo: 

OPENOUT "" 

El ordenador va enviando datos a una porción de la memoria denominada ‘tampón’, 
cuya capacidad es de 2 K. Cuando se llena el tampón, el ordenador pide que 

Press REC and PLAY then any key: 

(‘Pulse REC y PLAY y luego cualquier tecla.’) Usted debe pulsar los botones REC y 
PLAY del magnetófono y después una de las teclas del ordenador. La cinta empezará 
a moverse y el ordenador grabará en ella el contenido del tampón. El ordenador sigue 
enviando datos al tampón; cada vez que se llena vuelve a emitir el mensaje 

Press REC and PLAY then any key: 

y a grabar los 2K en la cinta. 

Si el tampón está parcialmente ocupado cuando se ejecuta la orden CLOSEOUT, el or¬ 
denador vuelve a emitir el mensaje. 

Press REC and PLAY then any key: 
tras lo cual vacía el tampón hacia la cinta. 

Durante el proceso de grabación aparecerán en la pantalla los mensajes del tipo 
Saving NGMBREFI block <x> 

Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnetófono. 
En el caso de los ficheros grabados en disco, el ordenador ignora el distintivo !. Obser¬ 
ve que el signo ! no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje: 

Broken i ri 
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Calidad de la grabación 

Para asegurar la fiabilidad de la grabación: 

1. Compruebe que el magnetófono está correctamente conectado al zócalo CINTA del 
ordenador (véase la parte 2 del ‘Curso de introducción’). 

2. Ajuste adecuadamene el control del nivel de entrada del magnetófono (si lo tiene). 

3. No utilice cintas de baja calidad, ni de duración C120. (Recomendamos las cintas 
AMSOFT C15.) 

4. Asegúrese de no dejar las cintas sometidas a la influencia de campos magnéticos 
(cerca de altavoces, televisores, etc.) 

5. Antes de borrar el programa de la memoria, compruebe que ha quedado correcta¬ 
mente grabado rebobinando la cinta y verificando su contenido mediante la orden 
CAT. 

6. Dé a su magnetófono un mantenimiento periódico adecuado; en particular, limpie 
las cabezas con regularidad. 

SAVE 

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed 
file (‘fichero sin nombre’). Ejemplo: 

SAVE "" 

El ordenador pide que 

Press REC and FLAY then any key: 

(‘Pulse REC y PLAY y luego cualquier tecla.’) Usted debe pulsar los botones REC y 
PLAY del magnetófono y después una de las teclas del ordenador. La cinta empezará 
a moverse y el ordenador grabará en ella el programa. 

Durante el proceso de grabación aparecerán en la pantalla los mensajes del tipo 
Saving NOMEREFI block 1 

Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnetófono. 
En el caso de las ficheros grabados en disco, el ordenador ignora el distintivo !. Obseve 
que el signo ! no cuenta a efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje 
Br-oken in 

Lea el apartado ‘Calidad de la grabación’ anterior. 
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SPEED WRITE 


Esta orden sólo afecta a la cinta, pero puede ser ejecutada cuando el ordenador está 
trabajando con el disco. 


Mensajes de error 

El sistema de cinta puede generar los mensajes 7, 21, 24, 25, 27 y 32 (véase la parte 
3 del capítulo titulado ‘Para su referencia 

Órdenes externas de AMSDOS 


¡TAPE 

especifica que las entradas y salidas se deben dirigir a la cinta. Esta orden se puede sub¬ 
dividir en 

¡TAPE.IN 

para las entradas y 
!TAPE.OUT 

para las salidas. 

¡DISC 


especifica que las entradas y salidas se deben dirigir al disco. Esta orden se puede subdi¬ 
vidir en 

¡DISC.IN 

para las entradas y 

¡DISC.OUT 


para las salidas. 
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Las órdenes 


! A 
IB 

¡CPM 

:dir 

¡DRIVE 
! ERA 
! REN 
¡USER 

se ejecutan siempre con el disco, aun cuando se haya seleccionado la cinta con las órde¬ 
nes ¡tape. 
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Capítulo 5 
AMSDOS y CP/M 


Parte 1: AMSDOS 


Temas tratados: 

* Introducción a AMSDOS 

* Directorio del disco 

* Cambio de discos 

* Nombres y tipos de ficheros 

* Cabeceras de fichero en AMSDOS 

* Nombres de fichero con dos unidades de disco 

* Símbolos comodín 

* Ejemplo de programa con órdenes de AMSDOS 

* Guía de referencia de las órdenes de AMSDOS 

* Manejo y copia de ficheros 

* Guía de referencia de los mensajes de error 


Introducción 


AMSDOS amplía el BASIC suministrado con su ordenador al añadirle algunas órdenes 
externas, identificadas por el signo ! que las precede. 

AMSDOS permite cambiar libremente los discos siempre que no haya ningún fichero 
abierto. Si lo hay, emite un mensaje de error y se puede producir una pérdida de datos 
si el fichero estaba abierto para escritura (en dirección de salida). 


Directorio del disco 


Todos los discos tienen dos secciones: el directorio y el área de datos. El directorio con¬ 
tiene la lista de los nombres de los ficheros y un ‘mapa’ de la organización del área 
de datos. AMSDOS y CP/M pueden calcular el tamaño de un fichero consultando su 
reseña en el directorio. El cálculo del espacio libre se realiza sumando las longitudes 
de todos los ficheros y restándolo de la capacidad total del disco. 
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Cada vez que se va a leer de un fichero, se consulta su reseña en el directorio para averi¬ 
guar su situación en el disco. Cuando se crea un fichero nuevo, se le reserva espacio 
en el disco. Cuando se borra un fichero, se libera el espacio por él ocupado. El directo¬ 
rio trabaja en unidades de IK y puede contener hasta 64 reseñas. Los ficheros largos 
necesitan una reseña para cada 16K, si bien este hecho queda oculto y carece de impor¬ 
tancia para el usuario. 


Cambio de discos 


AMSDOS (y CP/M Plus) permite el cambio o la extracción del disco en todo momento 
en que no se esté accediendo a él, suponiendo que no haya ningún fichero abierto en 
esa unidad. A diferencia de CP/M 2.2, no necesita ‘reconocer’ los discos. 

Si se extrae un disco cuando se está escribiendo en él, se pueden perder los datos graba¬ 
dos en el disco. En cuanto AMSDOS detecta que se ha extraído un disco habiendo fi¬ 
cheros abiertos en él, se abandonan todos los ficheros y se emite un mensaje de error. 
Los datos pendientes de escribir en el tampón de salida se perderán, y no se grabará 
la última reseña del directorio. No obstante, AMSDOS solamente detecta la extracción 
del disco cuando consulta el directorio, lo que ocurre, con ficheros grandes, una vez 
cada 16K (y siempre que abre o cierra un fichero). Así, es posible perder 16K de datos 
si se extrae un disco antes de cerrar todos los ficheros abiertos en él. 


Nombres y tipos de ficheros en AMSDOS 

Es costumbre dar a los ficheros nombres que incluyan un distintivo del tipo de fichero 
de que se trata. Este convenio no obliga al ordenador a utilizar los ficheros de una for¬ 
ma determinada, si bien hay programas que solamente aceptan ficheros de un tipo de¬ 
terminado. BASIC acepta ficheros de todo tipo, pero busca preferentemente ciertos ti¬ 
pos si no se le especifica otra cosa. (Véase la sección ‘Cabeceras de fichero en 
AMSDOS’.) 


Construcción de los nombres de los ficheros 

El nombre del fichero consta de dos partes, separadas por un punto (.). La primera 
parte consta de 8 caracteres como máximo; la segunda puede contener hasta 3 caracte¬ 
res. Así, por ejemplo, “ROINTIME.DEM”, “DISCKIT3.COM” y “DISC.BAS” son 
nombres correctos de fichero. 


5/2 


AMSDOS y CP/M 


La segunda parte del nombre del fichero es el distintivo de tipo. Los nombres y los dis¬ 
tintivos pueden consistir en una mezcla cualquiera de letras y números, pero no pueden 
contener espacios ni signos de puntuación. Algunos distintivos de tipo convencionales, 
son los siguientes: 


.< espacios) 

.BAS 

.BIN 

.BAK 

.COM 

.SUB 


Tipo no especificado. Puede ser un fichero creado por OPENOUT 
"<nombrefi>", o bien un programa de BASIC grabado por AMSDOS 
con SAVE "<nombrefi>",A. 

Programa de BASIC grabado con SAVE "<nombrefi>", con SAVE 
"<nombrefi>",P o con SAVE"<nombrefi>".BAS",A. 

Programa o zona de memoria grabados por AMSDOS con SAVE 
" < nombrefi > ", B, < parámetros binarios >. 

Este distintivo se asigna automáticamente a la versión anterior de un fi¬ 
chero cuando AMSDOS o un programa de ayuda graban una versión 
más moderna con el mismo nombre. Esto permite que el usuario pueda 
utilizar o consultar la versión anterior siempre que lo necesite. 

Fichero de orden (programa directamente ejecutable). Los programa de 
ayuda de CP/M son de este tipo. 

Fichero de instrucciones para el programa SUBMIT de CP/M. 


Cabeceras de fichero en AMSDOS 

AMSDOS asigna automáticamente a los ficheros, distintivos de tipo adecuados cuando 
los graba, por lo que normalmente no es necesario especificar distintivo. Los ficheros 
de BASIC ordinarios, los ficheros de BASIC protegidos y los ficheros binarios se gra¬ 
ban con un registro de cabecera, de forma que en el proceso de lectura la orden de 
AMSDOS 

LOAD "(noabreíi}" 

pueda reconocerlos y obrar en consecuencia. Si la orden LOAD no encuentra el registro 
de cabecera, supone que se trata de un fichero ASCII, es decir, de.un fichero de texto. 

Independientemente del registro de cabecera, cuando se pide a AMSDOS que cargue 
un fichero sin especificarle el distintivo de tipo, empieza por buscarlo con el distintivo 

. (espacios) 

Si no lo encuentra, busca uno del tipo 
. BAS 
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y, finalmente, del tipo 

. BIN 

Esto permite que el usuario se despreocupe del distintivo de tipo en la mayor parte de 
los casos. 

Un fichero de disco creado por OPENOUT y escrito por BASIC carecerá de registro 
de cabecera; su contenido estará en ASCII (es decir, texto normal escrito con las órde¬ 
nes WRITE, PRINT o LIST de BASIC.) La orden OPENIN busca los ficheros en el 
mismo orden que LOAD si no se especifica distintivo de tipo. 


Nombres de fichero con dos unidades de disco 

En los sistemas de dos unidades de disco (esto es, en aquellos a los que se ha conectado 
la unidad externa), puede haber ficheros en las dos unidades. El ordenador no busca 
los ficheros automáticamente en las dos unidades, por lo que el usuario debe especificar 
qué unidad se va a utilizar. Se puede utilizar las órdenes ! A, ' B o DRIVE (descritas 
más adelante) para seleccionar una de las dos unidades; o bien, sin necesidad de modifi¬ 
car la unidad implícita, se puede especificar A: o B: como prefijo del nombre del fiche¬ 
ro (los números de usuario permiten participar el directorio). Así, por ejemplo, 


¡B 

SAVE "PROG.BAS" 

! A 

y 

! A 

SAVE "B:PROG.BAS" 
graban el programa en la segunda unidad (B). 

Análogamente, se puede modificar transitoriamente la asignación implícita de USER 
(‘usuario’, margen de 0 a 15) poniendo el número de usuario como prefijo del nombre 
del fichero. Así, por ejemplo, 

LOAD "15;PROG.BAS" 


y 


SAVE "15:PROG.BAS" 

cargan y graban el programa de la sección del disco correspondiente al usuario número 
15, cualquiera que sea la asignación implícita de USER. (Véase más abajo la descrip¬ 
ción de la orden IUSER.) 
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Finalmente, se pueden modificar transitoriamente las asignaciones implícitas de USER 
y DRIVE a un tiempo especificando ambos (y en este orden) como prefijo del nombre 
del fichero. Por ejemplo, 

RUN ■15B:PR0G.BAS" 


Símbolos comodín 


A veces se necesita realizar con el disco operaciones (catálogo, copia, borrado, etc.) 
que afecten a varios ficheros. Cuando se especifica un nombre de fichero para una de¬ 
terminada operación, el sistema busca en el directorio un nombre que coincida exacta¬ 
mente con el especificado. Algunas órdenes pueden actuar sobre un conjunto de fiche¬ 
ros independientemente de alguno de los caracteres de su nombre. En vez de especificar 
los caracteres ‘indiferentes’, en su lugar se pone el signo de interrogación ?. Si todo 
el bloque (o resto del bloque) del nombre del fichero o del distintivo de tipo es indife¬ 
rente, el conjunto de signos de interrogación se puede sustituir por un asterisco. Así, 
por ejemplo, NOM.* es abreviatura de NOM.???, y F*.BAS es abreviatura de 
F???????.BAS. 

La expresión *.* significa ‘todos los ficheros’. 

Ejemplos: 


Directorio 

Concuerdan con 

*.BAS 

Concuerdan con 

NOM?.BAS 

Concuerdan con 

N*.BA? 

BANCO. BAS 

NOM1.BAS 

NOM2.BAS 

NOM3.BAK 

NOM3.BAS 

NOMINA.BAS 

BANCO.BAS 

NOM1.BAS 

NOM2.BAS 

NOM3.BAS 
NOMINA.BAS 

NOM1.BAS 

NOM2.BAS 

NOM3.BAS 

NOM1.BAS 
NOM2.BAS 
NOM3.BAK 
NOM3.BAS 
NOMINA.BAS 


Ejemplos de utilización de órdenes de AMSDOS 
dentro de un programa 

Para mejor asimilar las órdenes de AMSDOS, le recomendamos que introduzca en el 
ordenador y estudie los programas siguientes. No ejecute nunca estos programa con 
un disco maestro de CP/M instalado: los programas escriben datos en disco, y nunca 
se debe correr el riesgo de escribir sobre los discos maestros originales. Utilice una co¬ 
pia o un disco de trabajo. 
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Grabación de variables y volcado de pantalla 

El siguiente programa dibuja la bandera británica y graba la pantalla completa en dis¬ 
co. Para ejecutarlo es necesario poner en la unidad un disco inicializado. 

10 f ichero$="volcpant.srn" 

20 MODE 1:BORDER 0 
30 DIM color<2) 

40 FOR i=0 TO 2 

50 READ color<i»: REM lee colores de lista DATA 
60 INK i,color(i) 

70 NEXT 

80 ON ERROR GOTO 430 

90 OPENIN "param.dat" ’ comprueba si existe fichero 
100 CLOSEIN:ON ERROR GOTO 0 
110 IF numerror=32 AND DERR=146 THEN CLS 
120 CURSOR líPRINT "Quiere escribir sobre el -fichero": 
PRINT "anterior? Y/N"; 

130 a$=INKEY$:ON INSTR1" YN", UPPERí( a*) ) GOTO 130,150 
140: GOTO 130 

140 PRINT a$:PRINT "Fin del programa":END 
150 PRINT a$:CURSOR 0 
160 OPENOUT "param.dat" 

170 WRITE #9,f ichero*, 1: REM graba nombre de -fichero y 
modo 

180 FOR i=0 TO 2 

190 WRITE #9,color(i): REM graba colores 
200 NEXT i 
210 CLOSEOUT 
220 CLS 

230 gp=l:GRAPHICS PEN gp:w=125 

240 x=-65:a=240:y=400:b=-150:GOSUB 400 

250 y=0:b=150:GOSUB 400 

260 x=575:a=-240:y=400:b=-150:GOSUB 400 

270 y=0:b=150:GOSUB 400 

280 gp=2: GRAPHICS PEN gp:w=40 

290 a=240:x=-40:y=400:b=-150:GOSUB 400 

300 x=0:y=0:b=150:GOSUB 400 

310 a=-240:x=640:y=0:b=150:GOSUB 400 

320 x=600:y=400:b=-150:GOSUB 400 

330 ORIGIN 0,0,256,380,0,400: CLG 1 

340 ORIGIN 0,0,0,640,150,250:CLG 1 

350 ORIGIN 0,0,280,352,0,400:CLG 2 

360 ORIGIN 0,0,0,640,168,230ICLG 2 

370 SAVE f icheroí, b, &C000, B¡4000 

380 DATA 2,26,6 
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390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,0:DRAWR -a,-b 
410 MOVE x+a/2+w/2,y+b/2:FILL gp 
420 RETURN 

430 numerr-or=ERR:RESUME NEXT 
run 

Fíjese en los distintivos de tipo .DAT y .SRN. No tienen más significado intrínseco que 
recordarnos cuál es su contenido. El fichero PARAM.DAT será un fichero ASCII sin 
registro de cabecera, mientras que VOLCPANT.SRN es un fichero binario AMSDOS 
con cabecera. 

Observe que el programa trata de leer el fichero PARAM.DAT, para averiguar si exis¬ 
te, antes de escribir en él. Si no existe, BASIC genera un error, el cual es gestionado 
por el programa para que la ejecución continúe sin interrupción. Si ya existe el fichero, 
no se genera error y el programa pregunta al usuario si desea escribir encima de él. 

En este fichero se graba información sobre el modo de pantalla, los colores y el nombre 
del fichero que contiene el volcado de pantalla. La línea 170 ilustra cómo se puede utili¬ 
zar un fichero de datos para escribir en él valores de variables (fichero$) y constantes 
(1) que luego hayan de ser utilizados por otro programa. 


Carga de pantallas 

El siguiente ejemplo es un lector de volcados de pantalla que utiliza un fichero de pará¬ 
metros para controlar su acción. Observe cómo se leen los datos del fichero con INPUT 
y cómo se utiliza EOF para adaptar la lectura automáticamente al tamaño del fichero. 
Para que este programa visualice correctamente el volcado de pantalla, es necesario que 
la grabación se haya hecho en una posición de memoria conocida, pues en caso contra¬ 
rio la imagen quedará desplazada. Esto se garantiza grabando el volcado después de 
ejecutar una orden MODE y teniendo cuidado de que durante la formación de la ima¬ 
gen no se desplace la pantalla. 

10 DIM color(15): REM preparación para 16 colores 
20 OPENIN "param.dat” 

30 INPUT #9, nombre-f ichero*,modopantal la 
40 i=0 

50 WHILE NOT EOF 
60 INPUT «9,color(i) 

70 INK i,color(i) 

80 i = i +1 
90 WEND 
100 CLOSEIN 

110 MODE modopantalla:BORDER 0 

120 LOAD nombre-fichero* 

run 
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Resumen de las órdenes externas de AMSDOS 


¡A 


: a 

Orden. Especifica que la unidad de disco implícita sea la A. Equivale a ! ORIVE con 
parámetro A. (La unidad incorporada al ordenador es la A.) 


IB 


IB 


Orden. Especifica que la unidad de disco implícita sea la B. Equivale a ! DRIVE con 
parámetro B. (La unidad incorporada al ordenador es la A.) 


! CPM 

! CPM 

Orden. Carga un sistema operativo de disco. Los sistemas operativos suministrados 
con el ordenador son CP/M Plus y CP/M 2.2. 

La ejecución de esta orden no se puede completar si en la unidad no hay instalado un 
disco de sistema con CP/M. En concreto, CP/M Plus se carga con una copia de la- 
cara 1 de los discos maestros suministrados con el ordenador; CP/M 2.2, con una copia 
de la cara 4. 


! DIR 


¡DIR [, {expresión litera!)] 

!DIR,BAS" 

Orden. Escribe en la pantalla el directorio del disco (al estilo de CP/M) y el espacio 
libre. Si se omite el parámetro, se supone *. *. 
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IDISC 


! DISC 

Orden. Equivale a las órdenes ! DIS.IIM y ¡DISC.OUT. 


! DISC.IN 

IDISC.IN 

Orden. Especifica que las operaciones de lectura se deben hacer con el disco. 


! DISC.OUT 

IDISC.OUT 

Orden. Especifica que las operaciones de escritura se deben hacer con el disco. 


! ORIVE 

I DRI VE, texpresion literal) 

IDRIVE,"A" 

Orden. Establece qué unidad de disco se debe considerar como implícita en lo sucesivo. 
Esta orden fallará si AMSDOS no consigue leer en la unidad especificada. 


¡ERA 

i ERA, {expresión literal) 

I ERA,"*.BAK" 

Orden. Borra todos los ficheros que concuerden con la (expresión literal) y no sean 
de sólo lectura. Admite símbolos comodín. 


¡REN 

I REN, {expresión literal), {expresión literal) 

¡REN,"FICHNUEV.BAS" ,"FICHANTI.BAS" 
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Orden. Da un nuevo nombre a un fichero ya existente en el disco. No puede haber otro 
fichero con el nombre nuevo. No admite símbolos comodín. 

Se puede incluir el parámetro USER (‘usuario’, véase más abajo) en la (expresión 
literal) para modificar transitoriamente la situación implícita. Por ejemplo 
! REN,"0:NUEVO.BAS","15:ANTIGUO.BAS" da al fichero "ANTIGUO.BAS" dé 
USER 15 el nuevo nombre "NUEVO.BAS" en USER 0, cualquiera que sea el paráme¬ 
tro de ¡ USER especificado con anterioridad. 


¡TAPE 

¡TAPE 

Orden. Equivale a las órdenes ¡TAPE.IN y ITAPE.OUT. Solamente actúa si está co 
nectado un magnetófono externo. 


! TAPE.IN 

¡TAPE.IN 

Orden. Especifica que las operaciones de lectura se deben hacer con la cinta. Solamente 
actúa si está conectado un manetófono externo. 

ITAPE.OUT 

!TAPE.OUT 

Orden. Especifica que las operaciones de escritura se deben hacer con la cinta. Sola¬ 
mente actúa si está conectado un magnetófono externo. 


¡USER 

¡ USER, {expresión entera} 

¡USER,3 

Orden. Determina con cuál de las 16 secciones del directorio (áreas de usuario, del 0 
al 15) deben actuar ciertas órdenes de manejo de disco (CAT, LOAD, ¡ DIR, etc.). 

Un fichero grabado en un área de usuario puede ser transferido a otra con la orden 
¡REN. Así, I REN,"15:EJEMPLO.BAS","0:EJEMPLO.BAS" transfiere el fichero 
del área 15 al área 0 sin cambiarle el nombre. 
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Copia de ficheros de disco a disco 


Ficheros de AMSDOS con cabecera 

Los ficheros de este tipo se pueden copiar desde CP/M mediante P1P y (véase la parte 
2 de este capítulo). Los ficheros creados por AMSDOS con registro de cabecera (véase 
más arriba) pueden ser copiados en bloque (disco a disco), pero en general su contenido 
no puede ser entendido por los programas de CP/M. 


Ficheros ASCII 

Los ficheros creados por AMSDOS sin registro de cabecera estarán generalmente en 
ASCII y son tanto copiables como entendibles por los programas de CP/M. En concre¬ 
to, los ficheros de programa, de datos y de texto de ASCII son intercambiables entre 
AMSDOS y CP/M. 


Ficheros de ‘sólo lectura’ 

Desde CP/M es posible hacer que un fichero sea de sólo lectura y/o invisible a efectos 
de catálogo del directorio. Estas características sólo se pueden establecer o anular desde 
CP/M, pero son respetadas por AMSDOS. Para más detalles, véase la parte 2 de este 
capítulo (programa de ayuda SET). 


Copia de ficheros entre disco y cinta 

CP/M Plus no está preparado para acceder a ficheros de cinta y copiarlos en disco, 
ni para copiar ficheros de disco a cinta. Si lo está, en cambio, CP/M 2.2 (cara 4 de 
los discos maestros). Los programas de ayuda CLOAD y CSAVE de CP/M 2.2 realizan 
estas funciones según se muestra en las tablas siguientes. 


Procedimientos de copia de ficheros 

En las tablas siguientes se describen los procedimientos de transferencia para todo tipo 
de ficheros entre disco y cinta. No se requiere tener conectada la segunda unidad de 
disco. Los programas de BASIC protegidos no pueden ser copiados de cinta a disco, 
ni viceversa; tampoco pueden serlo los ficheros binarios (tales como programas de jue¬ 
gos en código de máquina) si no se conocen las direcciones de carga. En la parte 2 de 
ese capítulo se da más información sobre los programas PIP, CLOAD y CSAVE. 
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COPIAR DESDE 


COPIAR HACIA 

BASIC de Amstrad 
en cinta * 

Datos ASCII 
en cinta * 


Binario 
en cinta * 

BASIC de Amstrad 

i TAPE 




en cinta * 

LOAD'FICH” 

(caibiar cinta) 

SAVE"FICH” 

! DISC 




Binario 
en cinta * 




H=HIMEM 
! TAPE 

MEMORY <p>-1 
LOAD-FICH" 
(canbiar cinta) 
SAUE-FICH",B, 





(p), (l)i, <•)] 
¡DISC 





MEMORY=H 

(nota 2) 

ASCII 

i TAPE 

<i asertar dices da CP/b 2.2) 


en cinta * 

LOAD-FICH" 

¡CPM 




(caibiar cinta) 

CLOAD-FICH” 

, TEMP 



SAVE"FICH",A 

tcaibiar cinta) 




iDISC 

CSAVE TEMP, 
ERA TEMP 
AMSDOS 

(asta 1) 

"FICH" 


BASIC de Amstrad 

¡TAPE 




en disco * 

LOAD-FICH" 

¡DISC 

SAVE“FICH" 




ASCII 

¡TAFE 

(insertar disco da CP/P 2.2) 


en disco 

LOAD-FICH" 

¡CPM 




¡DISC 

CLOAD-FICH" 




SAVE"FICH",A 

AMSDOS 



Binario 
en disco 




H=HIMEM 

¡TAPE 

MEMORY (p>-1 
LOAD-FICH" 

¡ DISC 

SAVE-FICH-,B, 
<p>, (Di, (e)l 
MEMORY H 

(nota 2) 


* Fichero con cabecera. 

(nota 1> Requiere espacio libre en el disco para el fichero transitorio "TEMP". 

(nota 2> (p> es la dirección inicial del fichero, (1> es su longitud, (e> es la dirección opcional 
de ejecución. 
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COPIAR DESDE 


COPIAR HACIA 


BASIC de Amstrad 
en cinta * 


BASIC de Amstrad 
en disco * 


LOAD"FICH" 
í T APE 

SAVE"FICH" 
IDISC 


Datos ASCII 
en disco 


Binario 
en cinta * 


Binario Amsdos Todos los demás 

en disco * en disco 


H=HIMEM 
MEMORY (p)-l 
LOAD"FICH“ 

1 TAPE 

SAVE"FICH" , B, 

<p> <»>] 

IDISC 
MEMORY H 
<nota 2) 


ASCII 
en cinta * 


LOAD”FICH” (insertar risco de CP/N 2.2) 

I TAPE * CPM 

SAVE"FICH”,A CSAVE FICH 

IDISC AMSDOS 

o bien 

< insertar disco de CP/N 2.2) 

I CPM 

CSAVE FICH 
AMSDOS 


BASIC de Amstrad 
en disco * 


LOAD"FICH" 

(cubiar disco) 
SAVE"FICH" 
o biea 

(¡asertar disco de CP/N Plus) 
I CPM 

PIP b:=fich 

AMSDOS 


ASCII 
en disco 


LOAD’FICH" 
(caobiar disco) 
SAVE“FICH",A 


(insertar disco de CP/N Plus) 
I CPM 

PIP B:=FICH 
AMSDOS 


(insertar disco de CP/N 2.2) 
! CPM 

CSAVE FICH 
AMSDOS 
(nota 3) 


Binario Amsdos 
en disco * 


(insertar disco de CP/N Plus) 
I CPM 

PIP B:=FICH 
AMSDOS 


Todos los demás 
en disco 


(insertar disco de CP/N Plus) 
1 CPM 

PIP B:=FICH 
AMSDOS 


* Fichero con cabecera. 

<nota 2) <p es la dirección inicial del fichero, <1> es su longitud, <e> es la dirección opcional 
de ejecución. 

<nota 3) El fichero destino no es utilizable directamente por BASIC. No obstante, esta opción 
es interesante como medio de almacenamiento a bajo costo. El fichero se puede volver 
a copiar en disco con CLOAD“FICH" (desde CP/M 2.2). 
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Guía de referencia de los mensajes de error 

Cuando AMSDOS no puede ejecutar una orden, emite un mensaje de error. Si el pro¬ 
blema es mecánico o radica en los circuitos, el mensaje de error va seguido de la 
pregunta: 

Retry, Ignore or Cancel? 

R (reintentar) hace que se repita la operación, posiblemente después de que el usuario 
haya remediado el problema. 

I (ignorar) hace que el ordenador continúe como si nada hubiera ocurrido, lo que gene¬ 
ralmente da lugar a efectos inesperados y posiblemente indeseados. 

C (cancelar) hace que se cancele la operación, lo que frecuentemente conduce a un nue¬ 
vo mensaje de error. 

Lista de errores 

Unknown command 

... la orden no ha sido tecleada correctamente. 

Bad command 

... la orden no puede ser ejecutada por alguna razón; error de sintaxis o configuración 
inadecuada del sistema. 

(nonbre de fichero) already exists 

... el usuario ha intentado dar a un fichero el nombre de un fichero ya existente. 

(noibre de fichero) not found 
... no existe ese fichero. 

Drive (unidad): directory -full 

... no queda espacio en el directorio para una nueva reseña. 

Drive (unidad): di se -full 
... no queda espacio en el disco para grabar nuevos datos. 
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Drive <unidii>: di se changed, closing lumbre de fichero) 

... se ha cambiado el disco antes de cerrar el fichero; el ordenador lo cierra. 

<BDibre de fichero) is read only 

... el fichero no se puede modificar porque es de ‘sólo lectura’. Los ficheros solamente 
se pueden caracterizar como de sólo lectura o de lectura/escritura desde CP/M. 

Drive funidad): di se missing 

... no hay disco en la unidad, o el disco no está girando correctamente. La acción 
aconsejable es extraer el disco, insertarlo de nuevo y pulsar R. 

Drive <unidad>: disc Í5 write protected 

... se ha intentado escribir en un disco que tiene abierto el orificio de protección. Si 
efectivamente quiere utilizar ese disco, extráigalo, cierre el orificio de protección, insér¬ 
telo de nuevo y pulse R. 

Drive tuaidad): read -fail 

... error en los circuitos de lectura. La acción aconsejable es extraer el disco, insertarlo 
de nuevo y pulsar R. 

Drive tuRidad): write fail 

... error en los circuitos de escritura. La acción aconsejable es extraer el disco, inser¬ 
tarlo de nuevo y pulsar R. 

Failed to load CP/M 

... error de lectura al intentar cargar CP/M con la orden ! CPM, o bien no se ha inser¬ 
tado un disco de sistema de CP/M válido. Cuando se intenta cargar CP/M con un disco 
que tenga formato ‘de datos’ se genera el mensaje de error ‘Read fail’. 
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Parte 2: CP/M 

CP/M Plus 


Temas tratados : 

* Introducción a CP/M 

* Carga de CP/M Plus 

* Modo directo de consola 

* Programas de ayuda transitorios 

* Gestión de periféricos 

* CP/M 2.2 


CP/M Plus es un sistema operativo de disco. Es un programa especial que da acceso 
a la gran potencia del CPC6128. Aprovecha todos los 128K de RAM y deja libres más 
de 61K para los programas del usuario. CP/M permite el acceso aleatorio a los ficheros 
de datos; la implementación en el CPC6128 incluye un sofisticado emulador de 
consola. 

El hecho de que CP/M esté disponible para tan gran variedad de ordenadores hace que 
se hayan escrito millares de paquetes de aplicación, entre los que usted puede elegir los 
que mejor satisfagan sus necesidades. 

En la publicación ‘A Guide to CP/M Plus’, SOFT971, se da una descripción completa 
CP/M Plus, junto con información detallada sobre cómo escribir sus propios pro¬ 
gramas y sobre la implementación de CP/M Plus en el Amstrad. Puede consultar tam¬ 
bién otras publicaciones de Amsoft y de otros editores sobre este tema. 


Introducción 


El sistema operativo CP/M proporciona un medio de comunicación entre el usuario 
y el sistema informático, incluidas las unidades de disco y otros periféricos. Ofrece ór¬ 
denes especiales (incorporadas en el sistema) y programas de ayuda (grabados en los 
discos) cuyo objetivo fundamental es ayudarle en la tarea principal y más frecuente: 
ejecutar los programas de las aplicaciones con sus propios datos. 

Desde luego, es posible adquirir gran experiencia en el manejo de CP/M y todos sus 
programas de ayuda. Tal experiencia puede ayudarle a salir de algún apuro. Pero la 
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realidad es que a la mayor parte de los usuarios les basta con saber cómo poner en mar¬ 
cha los programas. El resto de este capítulo estará dedicado a explicar las funciones 
y características fundamentales de CP/M, procurando evitar que el exceso de detalles 
oscurezca lo esencial. 

Del mismo modo que BASIC tiene su ‘modo directo’ o ‘modo inmediato’, caracteriza¬ 
do por el mensje inductor Ready, CP/M tiene un ‘modo directo de consola’, identifi¬ 
cado por los mensajes A> o B>. El sistema dispone de ciertas órdenes incorporadas, 
pero la mayor parte del trabajo se realiza cargando y ejecutando ‘programas transito¬ 
rios’. Se les llama ‘transitorios’ porque normalmente están en el disco y sólo se los car¬ 
ga en la memoria cuando se los va a utilizar. 

El sistema genera, además de los mensajes de error estándar de CP/M, cierto número 
de mensajes de error específicos de los circuitos, los cuales se distinguen por el hecho 
de que aparecen en la última línea de la pantalla en forma de “cinta sin fin”. 


Situación de CP/M Plus en el disco 

La mayor parte de CP/M Plus reside en un fichero especial con distintivo de tipo 
.EMS, grabado en la cara 1 del juego de discos del sistema. El ordenador carga CP/M 
a partir de este fichero siguiendo un proceso de dos etapas. 

En primer lugar, la orden ! CPM de AMSDOS carga el primer sector de la pista número 
0. En los discos con formato de sistema, este sector contiene un programa cuya única 
misión es cargar el fichero .EMS. El resto de las pistas del sistema no se utiliza. 


Arranque en frío 

Durante el proceso de carga, cuando se activa CP/M por primera vez, el sistema busca 
en el disco el fichero PROFILE.SUB. Si lo encuentra, ejecuta automáticamente las ins¬ 
trucciones contenidas en él. Así pues, incluyendo en el fichero PROFILE.SUB las ins¬ 
trucciones adecuadas, se puede automatizar la preparación del teclado, la inicialización 
de la impresora e incluso la puesta en marcha de una aplicación. En el capítulo 4 vimos 
cómo se cambia el nombre del fichero PROFILE (cara 1) para activarlo. 

Mientras está funcionando el fichero PROFILE.SUB se crea en el disco un pequeño 
fichero transitorio; así pues, el disco no puede estar protegido contra escritura. Ésta 
es la razón por la que el fichero PROFILE del disco maestro no puede ser reconocible, 
esto es, no puede tener el distintivo .EMS. 

Los ficheros PROFILE se pueden elaborar con un procesador de textos, con un editor 
de texto (tal como ED.COM) o incluso desde BASIC. El siguiente programa de BASIC 
podría haber sido utilizado para crear el fichero PROFILE.SUB: 
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10 OPENOUT "PROFILE.SUB“ 

20 PRINT #9,"SETKEYS KEYS.CCP" 
30 PRINT #9,"LANGUAGE 3" 

40 CLOSEOUT 


Códigos de control de consola 


En CP/M se utilizan diversas teclas para controlar la evolución de los programas. Estas 
funciones reemplazan la acción que ejercen las teclas de movimiento del cursor y [ESC] 
en BASIC. Los códigos de control que relacionamos a continuación se asignan a las 
correspondientes teclas ejecutando la orden 

SETKEYS KEYS.CCP 

El programa transitorio SETKEYS.COM y el fichero KEYS.CCP se encuentran ambos 
en la cara 1 del juego de discos del sistema. 


Código de 
control 

Tecla 

Función 

[C0NTR0L1A 

0 

Mover el cursor una posición hacia la izquierda 

[CONTROL1B 

[CONTROL] 0 

... o bien ... 

[CONTROL] 0 

Llevar el cursor al principio de la línea; si ya está 
en esa posición, lo lleva al final de la línea 

[C0NTR0L1C 

[CONTROL] [ESC] 

Abandonar el programa 

[C0NTR0L1E 

[CONTROL] [RETURN] 

Retorno físico del carro 

[C0NTR0L1F 

0 

Mover el cursor una posición hacia la derecha 

[CONTROL1G 

[CRL] 

Borrar el carácter que está en la posición actual 
del cursor 

[C0NTR0L1H 

[<-BORR] 

Borrar el carácter que está a la izquierda del cur¬ 
sor y mover éste una posición a la izquierda 

[CONTROUI 

[C0NTR0L1J 

[TAB] 

Llevar el cursor al siguiente tope de tabulación 
Introducir línea de orden 

[C0NTR0L1K 

[CONTROL] [CLR] 

Borrar hasta el final de la línea 

[CONTROL1M 

[C0NTR0L1P 

[RETURN] 

... o bien ... 

[INTRO] 

Introducir h'nea de orden 

Báscula de la impresora. Activa y desactiva el 
envío a la impresora de toda la información 
que aparece en la pantalla 
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Código de 
control 

Tecla 

Función 

[CONTROL1Q 


Reanudar el envío de información a la pantalla 

[CONTROL1R 

[CONTROL] [INTRO] 

Repetir la línea de orden actual 

[CONTROUS 

[ESC] 

Detener el envío a la pantalla de la información 
generada por CP/M. Se reanuda con [CON- 
TROUQ 

[CONTROL1U 


Ignorar la línea actual 

[CONTROLiW 

[COPIA] 

Repetir la última orden tecleada 

[CONTROUX 

[CONTROL] [<-BORR] 

Borrar desde el principio de la línea hasta la po¬ 
sición actual del cursor 

[CONTROL1Z 


Fin del texto 


Nombres de ficheros 

Muchas de las órdenes de CP/M llevan como parámetros nombres de ficheros. En cier¬ 
tos casos se permite la inclusión de símbolos comodín (véase la sección ‘Símbolos 
comodín’ en la parte 1 de este capítulo). El sistema convierte a mayúsculas todos los 
nombres de fichero. 

Las órdenes directas de consola y la mayor parte de los programas de ayuda no requie¬ 
ren que se escriban los nombres de ficheros entre comillas. 

Los nombres de los ficheros pueden incluir los prefijos A: o B: para obligar a CP/M 
a utilizar la unidad especificada. 

Una orden típica de CP/M es, por ejemplo, 

TYPE KEYS.CCP 

donde TYPE es el nombre de la función (‘visualizar en la pantalla’) y KEYS.CCP es 
el nombre del fichero cuyo contenido queremos ver. 


Cambio de la unidad de disco implícita 

Si se tienen conectada la segunda unidad de disco, se puede especificar cual de las dos 
debe ser considerada como implícita. Para ello se escribe A: o B: en respuesta a los 
mensajes inductores B> o A>, respectivamente. El propio mensaje inductor indica en 
todo momento cuál es la unidad implícita. La inclusión de A: o B: como prefijos en 
los nombres de los ficheros obliga a utilizar la unidad especificada en una operación 
concreta, pero no modifica la unidad implícita. 
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Ordenes directas de consola 


Hay varias órdenes directas de consola que se pueden teclear en respuesta a los mensa¬ 
jes A> o B>. Estas órdenes pueden ser abreviadas. Las versiones simplificadas que 
vamos a estudiar sí están incorporadas en el sitema operativo, pero existen, con el mis¬ 
mo nombre, programas transitorios más complejos. 


DIR 


Escribe en la pantalla la lista del contenido del directorio. Los nombres de los ficheros 
no están ordenados según ningún criterio, sino en el orden en que están sus reseñas en 
el directorio. DIR admite símbolos comodín; no lista los ficheros que tengan el atributo 

SYS’. 


DIR 


lista todos los 

DIR 

b: 

lista todos los 

DIR 

ff. BAS 

lista todos los 

DIR 

B:*.BAS 

lista todos los 

DIR 

PIP.COM 

lista solaiente 


DIRSYS y DIRS 


ficheros de la unidad iuplicita 
ficheros de la unidad B: 
ficheros del tipo . BAS 
focheros del tipo . BAS de la unidad 
el fichero PIP.COM (si existe) 


B: 


Estas órdenes escriben la lista de los ficheros del disco que tienen el atributo ‘SYS’. 
Por lo demás funcionan igual que DIR. Más adelante describiremos el atributo SYS. 


ERASE o ERA 

Borra reseñas del directorio. Sólo se borra la reseña, de modo que los datos siguen es¬ 
tando en el disco hasta que se graben otros en su lugar; no obstante, la información 
es irrecuperable. ERA admite símbolos comodín; si se incluyen estos símbolos en el 
nombre de fichero, ERA pide que se le confirme que debe borrar todos los ficheros 
concordantes. ERA no lista los nombres de los ficheros que va borrando. Si alguno 
de los ficheros que se le ha pedido que borre es de ‘sólo lectura’, la orden queda inte¬ 
rrumpida. El atributo de ‘sólo lectura’ será descrito más adelante. 

ERA PIP.COM borra el fichero PIP.COM 

ERA B: PIP. COM borra el fichero PIP.COM de la unidad B: 

ERA ff-.BAS borra tofos los ficheros de tipo .BAS 
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RENAME o REN 


Cambia el nombre de un fichero ya existente. El primer nombre de fichero que se espe¬ 
cifica es el nuevo, seguido del signo = y del nombre antiguo. Si ya hay en el disco un 
fichero con el nombre nuevo, se emite un mensaje de error. Como orden incorporada 
al sistema, REN no admite símbolos comodín en los nombres de los ficheros; sí lo hace, 
en cambio, el programa transitorio RENAME.COM. 

REN FICHNUEV. BAS=FICHANTI. BAS da al fichero FICHANTI. BAS el nuevo 

noibre FICHNUEV. BAS 

REN B: FICHNUEV. BAS=FICHANTI. BAS da al fichero FICHANTI. BAS el nuevo 

noabre FICHNUEV. BAS en la unidad B: 


TYPEo TYP 

Envía a la pantalla el contenido del fichero especificado. Si el fichero no es un fichero 
ASCII de texto, se producirán efectos imprevisibles, quizá indeseables. 

TYPE KEYS.CCP 

exhibe el listado del programa KEYS.CCP. 


USER o USE 

El ‘número de usuario’ es un método de partición del directorio mediante el cual se 
limita el acceso de distintos usuarios a sus correspondientes ficheros. Normalmente un 
fichero sólo es accesible si está identificado con el número actual de usuario. 

Los ficheros que hayan sido grabados en ‘usuario O’ y tengan el atributo ‘SYS’ son 
accesibles desde todos los números de usuario; de esta forma, los programas de ayuda 
y de aplicación están al servicio de todos los usuarios sin necesidad de que cada uno 
tenga una copia en su propia área. 

La orden USER cambia el número actual de usuario. Por ejemplo, 

USER 3 

hace que el número de usuario sea el 3. 
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Ordenes transitorias 


Para realizar una gestión de ficheros más elaborada que la que permite el modo directo 
de consola es necesario recurrir a los diversos programas de ayuda disponibles. Estos 
programas se ejecutan sin más que escribir su nombre, en ocasiones seguido de algún 
nombre de fichero o de algún parámetro. El lector seguramente conocerá una de estas 
órdenes transitorias: DISCKIT3. 

Las órdenes transitorias se dividen en los grupos indicados más abajo. La documenta¬ 
ción disponible sobre estos programas es muy amplia; el lector puede consultar los fi¬ 
cheros HELP (cara 3 del juego de discos del sistema) y la publicación ‘A Guide to 
CP/M Plus’, SOFT971. 

Las órdenes transitorias DISCKIT, SETKEYS, SETLST, SETSIO, PALETTE, LAN- 
GUAGE y AMSDOS, así como los controladores de pantalla para GSX y la instala¬ 
ción de L0G03, han sido diseñadas por Amstrad y funcionan solamente en este siste¬ 
ma. No son trasladables a ningún otro CP/M. En una misma línea se pueden incluir 
varias órdenes separándolas con el signo de exclamación (!): 

LANGUAGE 3!SETKEYS KEYS.WP 


Gestión de periféricos 


DISCKIT3 es un programa completo para inicializar, copiar y comprobar discos. Es 
más rápido inicializar mientras se copia que inicializar primero y luego copiar. El pro¬ 
grama ofrece menúes que indican qué tecla (normalmente del teclado numérico) se debe 
pulsar para realizar cada función. El formato ‘comercial’ ( vendor ) es un tipo especial 
de formato de sistema diseñado para la distribución comercial de programas. No obs¬ 
tante, los discos con formato ‘de datos’ pueden ser más adecuados para ese fin. 


AVISO 

El acuerdo de licencia para su CP/M (que está codificado electrónicamente con 
un número de serie) permite su utilización en un solo ordenador. Esto significa, 
en particular, que está prohibido dar a otras personas una copia de su disco (la 
cual sería identificable por el número de serie). Puesto que todas las copias de la 
cara 1 llevan grabado su CP/M (en el fichero .EMS), tenga buen cuidado de no 
vender, intercambiar o de ninguna otra forma de enajenar discos con ese fichero 
en ellos. 
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LANGUAGE 


El CPC6128 tiene un juego de caracteres internacionales bastante completo. La orden 
LANGUAGE intercambia determinados grupos de caracteres para que los programas 
de aplicación puedan visualizar caracteres especiales y acentuados. En la parte 16 del 
capítulo titulado ‘Para su referencia’ daremos más amplia información sobre este 
tema. 

La orden 

LANGUAGE 3 


adapta el ordenador para que escriba el juego de caracteres británico, cuya diferencia 
con el estándar (EE.UU.) está en el intercambio de los signos £ y #. 


Colores 


Los colores iniciales de CP/M Plus en el 6128 (con monitor de color) son el blanco in¬ 
tenso para los caracteres y el azul para el fondo. Pero estos colores se pueden modificar 
con la orden PALETTE, la cual va seguida de varios parámetros, uno para cada tinta. 
La tinta 0 es la del borde y el fondo; la tinta 1 es la de los caracteres. Cada color está 
descrito por un número (margen de 0 a 63) que caracteriza al mismo tiempo la intensi¬ 
dad perceptible en un monitor monocromático. 

Se puede especificar desde una hasta 16 tintas, pero sólo las dos primeras serán visibles 
en la pantalla de 80 columnas. 

La orden 

PALETTE 63,1 

invierte la situación normal de las tintas 0 y 1, pues da caracteres azules (1) sobre fondo 
blanco intenso (63). 

Utilice la tabla siguiente para elegir los colores (o las intensidades) que desee. Los nú¬ 
meros se pueden especificar en decimal o en hexadecimal. 
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Color 

Hex 

Dec 

Color 

Hex 

Dec 

Negro 

&00 

0 

Azul pastel 

&2B 

43 

Azul 

&02 

2 

Naranja 

&2C 

44 

Azul intenso 

&03 

3 

Rosa 

&2E 

46 

Rojo 

&08 

8 

Magenta pastel 

&2F 

47 

Magenta 

&0A 

10 

Verde intenso 

&30 

48 

Malva 

&0B 

11 

Verde mar 

&32 

50 

Rojo intenso 

&0C 

12 

Cyan intenso 

&33 

51 

Morado 

&0E 

14 

Verde lima 

&38 

56 

Magenta intenso &0F 

15 

Verde pastel 

&3A 

58 

Verde 

&20 

32 

Cyan pastel 

&3B 

59 

Cyan 

&22 

34 

Amarillo intenso 

&3C 

60 

Azul celeste 

&23 

35 

Amarillo pastel 

&3E 

62 

Amarillo 

&28 

40 

Blanco intenso 

&3F 

63 

Blanco 

&2A 

42 





El teclado 


Los códigos generados por el teclado pueden ser modificados mediante la orden 
SETKEYS. Esta orden permite asignar los valores deseados a las teclas o a los códigos 
expansibles. La lista de códigos debe encontrarse en un fichero, cuyo nombre se incluye 
luego como parámetro de SETKEYS. El fichero puede haber sido creado con ED, con 
PIP o incluso desde BASIC. Por ejemplo, una orden típica es 

SETKEYS KEYS.TST 

donde el fichero KEYS.TST contiene 

E &8C "DIR TM" código expansible número 12 
8 N S C "TH" retroceso del cursor = [CONTROL]H, ASCII 08 

que primero redefine el código expansible generado por [CONTROL] [INTRO] (repre¬ 
sentado por &8C) para asignarle la cadena DIR[RETURN], y luego la tecla de ‘cursor 
a la izquierda’! -'-], tecla número 8) para que genere un retroceso del cursor. 

Los ficheros KEYS estándar suministrados con el ordenador 6128 son: KEYS.CCP pa¬ 
ra la edición de órdenes de CP/M, KEYS.DRL para utilizar con Dr. LOGO (cara 3) 
y KEYS.WP, adecuado para muchos procesadores de texto. 


5/24 


AMSDOS y CP/M 



Impresoras 


La inicialización de impresoras se puede realizar con la orden 

SETLST (noobreficbero) 

donde <nombrefichero> contiene la cadena de códigos que se debe enviar a la impreso¬ 
ra. Al igual que en los ficheros de SETKEYS, los códigos de control se pueden repre¬ 
sentar por: 

t(carácter) 


o por 


f ’ (valor del carácter) ’ 

o bien por 

?’(noobre del codi 9 o de control)’ 

donde los <nombres del código de control) son ESC, FF, etc., o sea, los que se mues¬ 
tran en la tabla de caracteres ASCII del capítulo titulado ‘Para su referencia ... ’. 

Un código de inicialización de impresoras muy frecuente es el 15 (decimal), que estable¬ 
ce el modo de escritura estrechada. 

En BASIC la orden sería 

PRINT #8,CHR*<15) 

En CP/M, 

SETLST ESTRECHA 

donde el fichero ESTRECHA debe contener cualquiera de las siguientes líneas: 


t’SI’ 

fO 

t ’ íeF ’ 
f 15’ 


todas las cuales representan el código 15 (decimal). 
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Algunos programas de aplicación trabajan con la pantalla de 24x80. La orden 
SET24X80 

o bien 

SET24X80 ON 

seleciona el modo 24x80. La orden 
SET24X80 OFF 
lo anula. 

La pantalla normal en el 6128 es 24 x 80, con la última línea reservada para los mensajes 
de estado. La desactivación del modo 24x80 sólo será apreciable si también se deactiva 
la línea de estado. En la parte 15 del capítulo 7 se explica cómo activar y desactivar 
la línea de estado. 


Interfaz serie 


CP/M puede controlar un interfaz serie monocanal de entrada/salida (RS232). Sus ca¬ 
racterísticas fundamentales se pueden consultar ejecutando la orden SETSIO sin 
parámetros: 

SETSIO 


Se las puede modificar con esta misma orden incluyendo los siguientes parámetros (o 
algunos de ellos): 


SETSIO, RX 1200, TX 75, PARITY NONE, STOP 1, BITS 8, 
HANDSHAKE ON, XOFF OFF 


con lo que quedaría establecida una nueva configuración. 

Las características de velocidad de transmisión (RX) y de estado XON/XOFF pueden 
resultar afectadas por una de las acciones posibles de la orden DEVICE. Esta orden 
controla los dispositivos lógicos y físicos. Los dispositivos lógicos llevan como sufijo 
el signo de dos puntos (:). Para examinar los atributos actuales de los dispositivos se 
ejecuta la orden 

DEVICE 
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Los atributos se pueden modificar con órdenes tales como las siguientes: 

DEUICE SIOC12003 establécela velocidad de 1200 bits por segundo para 

el interfaz serie 

DEVICE SIOCXON3 activa el protocolo XON/XOFF 
DEVICE SIOCNOXON3 desactiva el protocolo XON/XOFF 

La correspondencia entre dispositivos lógicos y físicos también es modificable. Nor¬ 
malmente CON: es CRT (la consola, o sea, el teclado y la pantalla), AUX: es SIO (el 
interfaz serie opcional) y LST es LPT (el interfaz paralelo Centronics). La orden 

DEVICE LST:=SIO 

enviará al interfaz serie (si está conectado) la salida que normalmente iría a la 
impresora. 

Observe que esto es una reasignación de canales, que no se debe confundir con las fun¬ 
ciones de copia de ficheros realizadas por PIP. Las órdenes GET (nombrefichero) y 
PUT (nombrefichero) redirigen las entradas y salidas de la consola y la salida hacia 
la impresora para hacerles utilizar ficheros en lugar de controladores de dispositivo. 


PIP 

El programa de ayuda PIP (Peripheral Interchange Program, “programa de intercam¬ 
bio entre periféricos”) realiza el intercambio de información entre el ordenador y sus 
periféricos. 

La forma general de la orden es 

PIP «KtÍS0)=<fUHtC> 


La (fuente) y el (destino) pueden ser, o bien un dispositivo lógico, o bien nombres 
de ficheros; en este último caso se permiten símbolos comodín en la (fuente). Los dis¬ 
positivos lógicos utilizables son los siguientes: 



Como fuente 


Como destino 

con: 

entrada por consola 

con: 

salida por consola 

aux: 

entrada auxiliar 

aux: 

salida auxiliar 

EOF! 

indicador de fin de fichero 

lst: 

prn: 

impresora 

impresora con gestión de tabú- 


ladores, números de línea y 
salto entre páginas 
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Ejemplos de utilización de PIP: 

PIP B:=A:*.COM 

copia todos los ficheros *.COM de la unidad A: a la B:. 

PIP TECLADO.CPM=KEYS.CCP 

hace una copia del fichero KEYS.CCP y le da el nombre de TECLADO.CPM. 

pip con:=keys.ccp 

envía el fichero KEYS.CCP a la pantalla (efecto similar al de TYPE KEYS.CCP). 

PIP LST:=KEYS.CCP 
envía el fichero KEYS.CCP a la impresora. 

PIP ENTRADA.TXT=CON: 

capta caracteres por el teclado y los envía a un fichero llamado EIMTRADA.TXT. 

Observe que, en este último ejemplo, el proceso se concluye con el código de control 
[COIMTROL]Z y que para pasar a la línea siguiente hay que pulsar siempre [CON- 
TROL1J después de [RETURIMJ. [CONTROL1J es el código ASCII del avance de línea. 

Cuando se escribe PIP sin parámetros, emite el mensaje inductor *, a continuación del 
cual se puede introducir las órdenes deseadas. Esta forma de funcionamiento es muy 
útil en el trabajo de copia de ficheros cuando no se tiene grabado el fichero PIP.COM 
en el disco fuente ni en el disco destino. El procedimiento consiste, pues, en cargar PIP 
con la cara 1 del juego de discos del sistema, extraer este disco y luego insertar los que 
hayan de intervenir en el proceso de copia. 

Para abandonar PIP basta con pulsar [RETURN] en respuesta al mensaje inductor *. 

Observe que PIP también puede copiar ficheros de un disco a otro en sistemas de una 
sola unidad; el programa avisa cuándo se debe cambiar el disco. Los indicadores de 
unidad de los ficheros fuente y destino deben ser diferentes. 


Gestión del sistema 

DIR, ERASE, RENAME y TYPE existen también como programas transitorios; en es¬ 
ta versión son más potentes que las correspondientes órdenes intrínsecas al sistema. Al 
igual que ocurre con otros programas transitorios suministrados por Digital Research, 
los parámetros secundarios se especifican entre corchetes. En los ficheros HELP de la 
cara 3 se da una explicación más completa. Veamos algunos ejemplos: 
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DIR [FULL] 

ERASE *.COM [CONFIRM3 
RENAME 

RENAME *.SAV=*.BAK 
TYPE KEYS.WP CNOPAGE1 


muestra todos los nombres de los ficheros, 
con sus tamaños y atributos 
pide confirmación individual para cada fi¬ 
chero que encuentra, antes de borrarlo 
pregunta los nombres antiguo y nuevo del 
fichero 

cambia todos los distintivos de tipo de . BAK 

a .SAV 

inhibe la paginación en la pantalla 


Ya hemos mencionado antes los atributos de SYS (sistema) y RO (sólo lectura). Estos 
y muchos atributos pueden ser asignados mediante la orden SET, la cual acepta símbo¬ 
los comodín. 


Las órdenes 


SET *.COM [ROI 
SET KEYS.CCP [ROI 
SET A: [ROI 

asignan a los ficheros o a una unidad de disco el atributo RO (para prevenir el borrado 
accidental). 

Las órdenes 

SET *.COM [RW] 

SET KEYS.CCP [RW] 

SET A: [RW] 

devuelven a los ficheros o a la unidad de disco el atributo de ‘lectura/escritura’. 

Las órdenes 


SET *.COM [SYS] 

SET KEYS.CCP [SYS] 

dan a los ficheros el atributo de ‘sistema’. Los ficheros que tienen este atributo no apa¬ 
recen en los listados generados por DIR (pero sí en los de DIRS y DIRSYS). No obstan¬ 
te, esos ficheros están disponibles a todos los demás efectos; e incluso, si están en el 
área de usuario número 0, están disponibles para todos los números de área de usuario. 

Las órdenes 

SET *.C0M [DIR] 

SET KEYS.CCP [DIR] 

anulan el atributo de ‘sistema’. 


AMSDOS y CP/M 


5/29 


A cada disco se le puede asignar una etiqueta o nombre (ÑAME) y también una clave 
(PASSWORD). La clave protege el directorio, no los ficheros. También se puede asig¬ 
nar claves a ficheros individuales. Las órdenes 

SET CNAME=JAVIER] 

SET IPASSWORD=SESAMO] 

SET tPROTECT=ON] 

actúan sobre el disco que está en la unidad implícita. 

Las órdenes 

SET *.*tPASSWORD=SESAMO] 

SET *.*[PROTECT=READ] 

actúan sobre ficheros de ese disco (*.* significa ‘todos los ficheros’). 

La estampación de fecha y hora se puede activar con INITDIR (cara 2 del juego de dis¬ 
cos del sistema). Las órdenes 

INITDIR 

SET ICREATE=ON] ... o ... SET IACCESS=ON] ... y ... 

SET IUPDATE=ON] ... junto con ... 

DIR [FULL] 

inician y visualizan la estampación de fecha y hora del disco de la unidad implícita. 
La orden 

DATE SET 

será necesaria cada vez que se cargue CP/M Plus para comunicarle la fecha y la hora. 
Una vez puesto en hora, el reloj la actualiza con precisión razonable. Para consultarla 
se utiliza la orden 

DATE ... y ... 

DATE CONTINUOUS 


ADVERTENCIA 

Cuando a un disco se le asigna nombre o clave, o se le estampa fecha y hora, en 
ese disco ya no debe escribir ni AMSDOS ni CP/M 2.2, pues estos sistemas no es¬ 
tán dotados de tales funciones. 
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Normalmente el sistema sólo accede a los ficheros del disco que está en la unidad implí¬ 
cita, salvo que se especifique otra unidad. Sin embargo, la orden 

SETDEF *,A: 

(donde * representa la unidad implícita) instruye a CP/M para que en lo sucesivo, 
cuando esté buscando ficheros, lo haga primero en la unidad implícita y luego en la 
A:. Dicho de otra forma, si la unidad implícita es la B:, el fichero será encontrado si 
está en alguna de las dos unidades. 

Las órdenes 

SETDEF [PAGE] ... y ... 

SETDEF [N0PAGE3 

activan y desactivan la paginación en la pantalla (esto es, la pausa que el sistema hace 
automáticamente, en espera de que el usuario pulse una tecla, cuando la información 
emitida por la consola llena la pantalla). 

Recuerde que la mayor parte de las funciones realizadas por DEVICES, SET y 
SETDEF, en particular cuando afectan a las unidades de disco (en lugar de a fiche¬ 
ros o discos concretos), han de ser inicializadas, junto con la fecha, cada vez que se 
carga CP/M Plus. Esta tarea se presta perfectamente a ser programada en un fichero 

PROFILE.SUB adecuado. 

SUBMIT ejecuta grupos de órdenes individuales automáticamente. Las órdenes tienen 
que estar en un fichero de texto cuyo distintivo de tipo sea .SUB. Cada línea representa 
una orden; una línea puede ser la entrada a un programa si empieza con el signo <. 

Con las diferentes versiones de SHOW se puede obtener información sobre el tamaño de 
un disco, el espacio libre, el número de reseñas libres en el directorio, ficheros que hay en 
las distintas áreas de usuario, el nombre del disco, las características de la unidad, etc.: 

show b: 

show b:clabel] 

SHOW B:CUSERS] 

SHOW b:[DIR] 

SHOW B:[DRIVE] 


Salida de CP/M 


La orden 

AMSDOS 

retira el control de CP/M y lo cede al BASIC de AMSTRAD, a través del cual se accede 
a las órdenes del sistema operativo de disco AMSDOS. 
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Programación avanzada 


La cara 2 del juego de discos del sistema contiene diversos programas que han sido dise¬ 
ñados para ayudar a los programadores más expertos. Le sugerimos que consulte la 
publicación ‘A Guide to CP/M Plus’, SOFT 971, o alguna otra obra de referencia. 


CP/M 2.2 


El objetivo de esta sección es poner de manifiesto las diferencias que hay entre CP/M 
Plus y CP/M 2.2. 

CP/M 2.2 se carga con las dos primeras pistas de un disco de sistema. El sector de auto- 
carga es diferente del que se utiliza para cargar CP/M Plus; es necesario no confundir¬ 
los. Aunque es posible utilizar discos con formato ‘comercial’, ‘IBM’ y ‘de datos’ en 
cualquier unidad de disco, es habitual limitar su uso a la segunda unidad. 

A menos que el programa tome medidas al efecto (tal como hace FILECOPY, por ejem¬ 
plo), CP/M 2.2 no permite escribir en un disco que no haya sido ‘reconocido’ previa¬ 
mente. Por otra parte, CP/M 2.2 sólo comprueba el tipo de formato que tiene el disco 
(sistema, datos o IBM) cuando lo reconoce. En el caso de la unidad de disco incorpora¬ 
da (unidad A) esto ocurre cada vez que vuelve al modo directo de consola o cuando 
se teclea [CONTROL1C en respuesta a los mensajes inductores A> o B>. En el caso 
de la unidad externa (unidad B), CP/M 2.2 reconoce el disco la primera vez que accede 
a él, después de reconocer el instalado en la unidad A. 

Si se intenta escribir en un disco que no ha sido reconocido, se provoca el error 

Bdos Err on <uiudad>: R/0 

Pulse una tecla cualquiera para continuar. Si además el nuevo disco es de formato dis¬ 
tinto, se producirá un error de lectura o de escritura. Pulse C para continuar. 

Si usted adquiere programas grabados en un disco con formato ‘comercial’, puede, o 
bien copiarlo a un disco de sistema (de CP/M 2.2) mediante FILECOPY o PIP, o bien 
convertir el disco en un disco de sistema añadiéndole las pistas de su propio CP/M 2.2, 
para lo cual sirven los programas BOOTGEN y SYSGEN. Lea atentamente el ‘Acuer¬ 
do de Licencia para el Usuario Final’ (apéndice 1 de este manual). 

SYSGEN (sin parámetros) es un programa copiador especial que solicita los discos 
fuente y destino y copia las pistas del sistema CP/M 2.2 del uno al otro. BOOTGEN 
copia la pista 0 del sector 1 (el cargador) y el sector de configuración de un disco a otro. 
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La orden DIR no acepta parámetros (aparte del indicativo de la unidad). Los nombres 
de los ficheros no son ordenados según ningún criterio, sino que aparecen en la pantalla 
en el mismo orden en que figuran sus reseñas en el directorio. 

STAT proporciona algunas de las funciones de SET y SHOW. Las órdenes 

STAT 
STAT a: 

STAT B: 


muestran el estado del disco y el espacio libre. 

Las órdenes 

STAT *.COM 
STAT DISC.BAS 

dan información más amplia acerca de ficheros concretos. 

Las órdenes 

STAT *.COM $R/0 
STAT DISC.BAS $R/0 

asignan al fichero especificado el atributo de ‘sólo lectura’, de forma que no queda ser 
borrado accidentalmente. 

Las órdenes 

STAT *.COM $R/W 
STAT DISC.BAS *¡R/W 


anulan el atributo de ‘sólo lectura’ y activan el de ‘lectura/escritura’. 

Las órdenes 

STAT *.COM $SYS 
STAT SECRETO.BAS $SYS 

asignan al fichero el atributo de ‘fichero de sistema’ para hacerlo invisible a las opera¬ 
ciones de listado del directorio y de copia. El fichero seguirá disponible para todo lo 
demás. 

Las órdenes 

STAT *.COM $DIR 
STAT SECRETO.BAS *DIR 

asignan al fichero el atributo de ‘directorio’, anulando el de ‘sistema’. 
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El programa de ayuda FILECOPY permite copiar ficheros de un disco a otro en siste¬ 
mas de una sola unidad de disco. Informa al usuario de cuándo debe intercambiar los 
discos y le da instrucciones completas a través de la pantalla. Si se incluyen símbolos 
comodín en los nombres de los ficheros, FILECOPY pide confirmación de que efectiva¬ 
mente se desea copiar cada uno de los ficheros encontrados. El programa escribe los 
nombres de los ficheros a medida que los va copiando. Ejemplos: 

FILECOPY *.COM 

copia todos los ficheros del tipo .COM. 

FILECOPY PIP.COM 

copia el fichero PIP.COM. 

DISCKIT2 realiza las mismas funciones que DISCKIT3, pero es algo más lento en la 
copia de discos ya que dispone de menos espacio de memoria. 

Hay dos programas de ayuda que realizan la transferencia entre disco y cinta. Salvo 
para el usuario especialista, lo normal es que sólo tenga interés transferir ficheros de 
texto (ASCII). 

CLOAD puede llevar dos parámetros. El primero es el nombre del fichero origen (cin¬ 
ta), entre comillas; el segundo es el nombre del fichero destino (disco). Si se omite el 
segundo parámetro, el fichero destino tendrá el mismo nombre que el fichero origen; 
en tal caso el nombre tendrá que ajustarse a las normas de CP/M. Si se omite el nombre 
del fichero origen, CLOAD lee el primero que encuentra en la cinta. Si el primer carác¬ 
ter del nombre es el signo de admiración (!), se suprimen los mensajes habituales del 
sistema de cinta. 

Ejemplo: 

CLOAD "MI CARTA" MICARTA.TEXT 

CSAVE puede llevar tres parámetros. El primero es el nombre del fichero origen (dis¬ 
co); el segundo es el nombre del fichero destino (cinta), entre comillas. Si se omite el 
segundo parámetro, el fichero se grabará en la cinta con el mismo nombre que tiene 
en el disco. Si el primer carácter del nombre del fichero destino es el signo de admira¬ 
ción (!), se suprimen los mensajes habituales del sistema de cinta. Si se especifican am¬ 
bos nombres, se puede incluir un tercer parámetro para indicar la velocidad de transfe¬ 
rencia de datos a la cinta: O para 1000 bits por segundo o 1 para 2000 bits por segundo. 

Ejemplos: 

CSAVE TEXTSAL.TXT “TEXTO SALIDA" 1 
CSAVE FICHEDAT 
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SETUP 


Este programa permite redefinir las características del teclado del CPC6128, del siste¬ 
ma de disco y del interfaz serie. También permite realizar diversas acciones cuando se 
carga CP/M 2.2. A diferencia de otros programas de ayuda, que realizan sus funciones 
cuando se los ejecuta, SETUP modifica el sector de configuración del disco (el cual 
sólo es invocado en los arranques en frío). En este aspecto, SETUP ejerce una acción 
similar a la de PROFILE.SUB de CP/M Plus. 

El progr ama es controlado por menú; cuando una pantalla es correcta o no requiere 
modificación, se pasa a la siguiente respondiendo Y a la pregunta: 

Is this correct (Y/N):_ 

(‘¿Es esto correcto?) Se puede interrumpir el programa pulsando [CONTROUC. Una 
vez completos los cambios, el programa pregunta: 

Do you want to update your system disc (Y/N):_ 

(‘¿Quiere actualizar el disco de sistema?’) Esto da la oportunidad de conservar el sector 
de configuración existente pulsando N. También pregunta: 

Do you want to restart CP/M (Y/N)!_ 


lo que permite cargar y probar la nueva configuración pulsando Y. 

Para copiar el sector de configuración en otro disco hay dos procedimientos: uno con¬ 
siste en ejecutar BOOTGEN (véase más abajo); el otro, en cargar SETUP con el disco 
origen, responder con Y a todas las preguntas e insertar el disco destino antes de res¬ 
ponder a la penúltima: 

Do you want to update your system disc (Y/N):_ 

Los caracteres de código ASCII inferior a 32 (decimal) se pueden introducir en las cade¬ 
nas literales tecleando el signo ? antes del carácter correpondiente, tomado del conjun¬ 
to A-Z, [, \, ], >, _. 

Las dos opciones siguientes son las que normalmente requieren mayor atención: 

#* Initial command bu-ffer: 

(‘Tampón de ordenes iniciales’). Los caracteres introducidos tendrán el misrfto efecto 
que si se los teclease en modo directo de consola inmediatamente después de cargar 
CP/M, es decir, ejecutan automáticamente un programa en ese momento. No olvide 
incluir el equivalente a [RETURN], que se representa con los caracteres TM. 
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Así, para ejecutar automáticamente DIR, el tampón de ordenes iniciales debe contener 

DIRfM 

Para cargar Dr. LOGO, 

SUBMIT L0GO2fM 
El mensaje 

Sign-on string: 

es el que aparece en la parte superior de la pantalla cuando se carga CP/M 2.2. Observe 
los caracteres TJTM, que producen el retorno del carro y el avance de línea. La primera 
parte del mensaje estándar establece los colores de la pantalla y el borde para trabajar 
con 80 columnas; cópielos literalmente si desea conservar estas características. 

Keyboard transíations: 

(‘Adaptación del teclado’). Permite asignar nuevos valores ASCII a las teclas, simulan¬ 
do así el efecto de la orden KEY DEF de BASIC. Los parámetros requeridos son los 
números de las teclas y los valores ASCII asignados. Los números de las teclas están 
ilustrados en el diagrama que hay grabado a la derecha del teclado, y también en la 
parte 4 del capítulo ‘Para su referencia ...’. 

Keyboard expansions: 

(‘Programación de teclas’). Simula el efecto de la orden KEY de BASIC. 


Para terminar ... 


Los programas DISCKIT2, SYSGEN, BOOTGEN, FILECOPY, SETUP, CSAVE y 

CLOAD han sido diseñados por Amstrad y funcionan solamente con CP/M 2.2 en el 
sistema Amstrad. Son incompatibles con otras versiones de CP/M, aunque los demás 
fabricantes suelen ofrecer programas similares (a menudo con los mismos nombres) es¬ 
critos para sus máquinas. 

En la cara 4 se incluyen varios programas de CP/M 2.2 destinados a los usuarios más 
expertos. Le sugerimos que consulte la publicación ‘A Guide to CP/M’, SOFT159, u 
otras obras de referencia. Los programas son los siguientes: 
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AMS Ensamblador para 8080. 

DDT Programa de ayuda para la depuración de programas escritos en 

ensamblador 8080. 

DUMP Programa para el volcado de ficheros en hexadecimal. 

ED Editor sencillo de texto. 

LOAD Para convertir un fichero .HEX generado por ASM en un fichero 

.COM. 

MOVCPM Para cargar CP/M 2.2 en una posición de memoria más baja que 
la estándar (para reducir el tamaño del TPA). 

SUBMIT Procesador por lotes en modo de consola. 

XSUB Procesador por lotes para programas transitorios. 

Estos programas están grabados en la cara 4 y sólo pueden ser utilizados con CP/M 
2.2. Evite confundirlos con otros programas de CP/M Plus (caras 1, 2 y 3). 
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Capítulo 6 

Introducción a LOGO 


En esta sección vamos a presentar los conceptos básicos de LOGO, apo¬ 
yados en ejemplos, y a dar la relación de las instrucciones disponibles. 
No pretende ser un libro de texto ni una guía de referencia exhaustiva. 
Le sugerimos que consulte las diversas publicaciones de Amsoft y de 
otros editores sobre este tema. 

Temas tratados : 

* Concepto de LOGO 

* Carga y ejecución de Dr. LOGO , . 

* Gráficos de tortuga 

* Escritura de procedimientos 

* Edición de procedimientos 


¿Qué es LOGO? 

LOGO es un lenguaje de programación que está ganando rápidamente gran populari¬ 
dad por lo fácil que es de aprender y de usar. 

Es el lenguaje ideal para aprender las técnicas de programación, cualquiera que sea su 
experiencia. 

Los programas de LOGO se construyen por bloques a base de procedimientos. El pro¬ 
pio Dr. LOGO es una colección de procedimientos, denominados primitivas, que el 
programador combina para formar sus programas. 

Durante la década de los 70, un grupo de informáticos y educadores, dirigidos por Sey- 
mour Papert, desarrolló el lenguaje LOGO, con sus gráficos de tortuga, como medio 
de aprendizaje de la informática destinado a niños muy pequeños. 

Incluyeron la tortuga para que los jóvenes estudiantes tuvieran, como dice Papert, un 
objeto con el que pensar, una herramienta que les ayudara a aprender de forma 
innovadora’. 

La tortuga, un dibujo con forma de punta de flecha, puede ser movida por la pantalla 
y controlada con órdenes muy sencillas. 
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Dr. LOGO 


Dr. LOGO es una bien meditada implementación de LOGO que ha sido especialmente 
adaptada al ordenador AMSTRAD para hacerla aun más fácil de programar. Incluye 
ampliaciones del lenguaje con las que se puede aprovechar la capacidad sonora del 
CPC6128; la edición de los programas se facilita al poderse utilizar las teclas de movi¬ 
miento del cursor. 


Carga de LOGO 

Para cargar Dr. LOGO, inserte en la unidad de disco una copia de la cara 1 del juego 
de discos del sistema y escriba 

! CPM 

Cuando aparezca el mensaje A>, extraiga el disco (cara 1) e inserte una copia de la 
cara 3 (Dr. LOGO y HELP). 

Para ejecutar Dr. LOGO escriba 

SUBMIT L0G03 

Al cabo de unos segundos aparecerá el mensaje de presentación, seguido del inductor, 
que en LOGO es el signo de interrogación ?. 


Dr. LOGO para CP/M 2.2 

Nota. En la cara 4 del juego de discos del sistema hemos incluido otra versión de 
Dr. LOGO por si usted necesitara utilizar este lenguaje con CP/M 2.2 (que es el 
disponible en los modelos CPC664 y CPC464+DDI1). En general, no es deseable 
utilizar la versión de LOGO de la cara 4 en el CPC6128. La versión recomendada, 
esto es, la de la cara 3, es la versión completa del Dr. LOGO de Digital Research.’ 

Si a pesar de todo quiere cargar la versión de CP/M 2.2, inserte en la unidad una 
copia de la cara 4 y escriba 

! CPM 


Cuando aparezca el mensaje A>, escriba 

SUBMIT L0G02 


Al cabo de unos segundos aparecerá el mensaje de presentación, seguido del men¬ 
saje inductor, ?. 
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Primeros pasos 


El mensaje ? indica que Dr. LOGO está esperando que usted escriba algo en el teclado. 
Escriba (en minúsculas) lo siguiente: 

-fd 60 

y verá cómo aparece la tortuga y cómo se mueve hacia delante 60 unidades, dibujando 
al mismo tiempo. La pantalla se ha borrado y ha reservado una zona amplia para los 
gráficos y una más pequeña para el texto, con el signo ? cerca del borde inferior de 
la pantalla. 

Dr. LOGO decide en ocasiones redistribuir la pantalla para asignar mayor superficie 
a los gráficos o al texto, según convenga. 

Escriba: 

rt 90 

y la tortuga girará 90 grados hacia la derecha. 

Escriba ahora: 

■fd 60 

y verá cómo la tortuga dibuja otra recta de 60 unidades de longitud perpendicular a 
la primera. 

Experimente con estas sencillas instrucciones, fd (d eforward, adelante), bk (de back- 
ward, atrás), rt (de right, derecha) y It (de left, izquierda), y observe la pantalla. 


Procedimientos en Dr. LOGO 

Un procedimiento es una lista de instrucciones que explica a Dr. LOGO cómo realizar 
cierta tarea. 

Los procedimientos que usted escriba irán ampliando la lista de los incorporados a Dr. 
LOGO, que son las denominadas primitivas. 

fd, bk, rt y It son primitivas incorporadas que se pueden incluir en nuevos 
procedimientos. 

Otra primitiva útil es es, que borra la pantalla y envía la tortuga a su situación (posi¬ 
ción y orientación) inicial. 
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Un procedimiento sencillo 

Fácilmente se comprende que si repetimos cuatro veces las instrucciones 

•fd 60 rt 90 

obtendremos un cuadrado de 60 unidades de lado. 

El mismo efecto se consigue escribiendo 

repeat 4 t-fd 60 rt 90] 

(repeat= repetir). Borre la pantalla, teclee esta instrucción y observe qué ocurre. 

Podemos asignar esa fórmula a un nuevo procedimiento, que denominaremos cuadra¬ 
do. Escriba lo siguiente: 

to cuadrado 

repeat 4 t-fd 60 rt 90] 
end 


A partir de ahora, Dr. LOGO entenderá cuadrado como si fuera una primitiva; cada 
vez que encuentre esa palabra, dibujará un cuadrado. Al procedimiento le podríamos 
haber dado cualquier otro nombre, pero éste nos recuerda cuál es la tarea que el proce¬ 
dimiento realiza. 

Dr. LOGO permite que se teclee una serie de instrucciones seguidas, en una misma lí¬ 
nea. Así, 

cuadrado rt 45 cuadrado 

dibuja dos cuadrados intercalando un giro de 45 grados entre ellos. 


Procedimientos con parámetros 

Un procedimiento como el que acabamos de definir no nos serviría de mucho si no pu¬ 
diéramos decirle de qué tamaño queremos que sea el cuadrado. Para ello podemos defi¬ 
nir nuestro procedimiento de la siguiente manera: 

to cualquiercuadrado :lado 
repeat 4 t-fd : lado rt 90] 
end 

con lo que hemos introducido la idea de variable, llamada, en este caso, dado. 

Observe que el nombre va precedido del signo de dos puntos, lo que indica a Dr. LOGO 
que dado es una variable, no una orden. 


6/4 


Introducción a LOGO 




Cuando utilicemos este procedimiento, tendremos que suministrarle un valor de entra¬ 
da. Por ejemplo, cualquiercuadrado 150 dibujará un cuadrado de 150 unidades de lado. 

Enlacemos ahora dos procedimientos: 

cá cualfludercuadrado 100 rt 45 cualquiencuadrado 150 

La tortuga ha dibujado los dos cuadrados, girando el segundo 45 grados con respecto 
al primero. 

Observe que Dr. LOGO escribe el signo de admiración ! para indicar que una línea es 
continuación de la anterior. 

Utilización de variables para recordar valores 

Dr. LOGO utiliza las variables, no sólo para recordar valores, sino también para sumi¬ 
nistrar valores de entrada a los procedimientos. 

Empecemos por definir un nuevo procedimiento: 

to triangulo 

repeat 3 [fd :lado rt 1201 
end 

Para probarlo podemos escribir: 

make "lado 100 
triangulo 

(make= hacer). 

Si queremos averiguar qué valor tiene asignado actualmente la variable dado, basta 
con que tecleemos dado a la derecha de ? y Dr. LOGO escribirá su valor. 

También podemos utilizar la variable dado en un procedimiento distinto. Observe en 
el siguiente procedimiento cómo vamos incrementando el valor de dado a cada paso 
para que el dibujo vaya siendo cada vez mayor: 

to dibujo 

triangulo lt 60 triangulo rt 60 
make "lado :lado+4 
dibujo 
end 

make "lado 10 
es dibujo 

Pulse [ESC] cuando quiera detener el programa. 
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Edición de programas y procedimientos 


Dr. LOGO permite corregir los errores de mecanografía y modificar los procedimien¬ 
tos definidos previamente. Las teclas de edición son los siguientes: 

Las teclas del cursor, (T] (T] H F*l . que mueven el cursor carácter o línea a línea. 

Las teclas del cursor, E E 0 0, combinadas con [CONTROL], llevan el cursor al 
principio o al final de la página, o a la izquierda o a la derecha de la línea. 

[CLR] borra el carácter que está en la posición del cursor; [<-BORR] borra el carácter 
que está a la izquierda del cursor. 

[RETURN] indica a Dr. LOGO que se ha terminado de editar una línea de órdenes; 
cuando se está editando un procedimiento, intercala una línea en blanco. 

[ESC] abandona la edición. 

[COPIA] indica a Dr. LOGO que ha terminado la edición del procedimiento. 

Cuando esté introduciendo órdenes o procedimientos nuevos, corrija el texto de la línea 
actual con las teclas descritas. Todos los caracteres que teclee, a excepción de los men¬ 
cionados, serán insertados en la posición del cursor. 

Para editar un procedimiento definido previamente, utilice la orden ed. Dr. LOGO es¬ 
cribe la versión antigua del procedimiento y permite que se utilicen los recursos descri¬ 
tos para mover el cursor por la pantalla y modificar lo que se desee. 

Modifique el procedimiento dibujo tecleando 
ed "dibuja 

Practique con las diferentes teclas de edición. Cuando haya terminado, pulse [ESC]; 
Dr. LOGO abandonará lo que hay en la pantalla y conservará la versión anterior del 
procedimiento. 

Teclee otra vez ed ''dibujo, ponga un 8 en lugar del 4, pulse [COPY] para terminar 
la edición y vuelva a ejecutar el procedimiento para obsevar el efecto de la modifica¬ 
ción. No olvide asignar un valor inicial a dado. 


Sugerencias para el trabajo con Dr. LOGO 

La memoria utilizada por Dr. LOGO está dividida en nodos. Para averiguar cuántos 
quedan libres escriba: 

nodes 
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En ocasiones, cuando Dr. LOGO ha utilizado casi todos los nodos disponibles, dedica 
unos instantes a reorganizar la memoria, durante los cuales se puede observar cómo 
se para la tortuga. El usuario puede pedir a Dr. LOGO que reorganice la memoria es¬ 
cribiendo la orden 

recyc1e 

Esto generalmente permite continuar después de que Dr. LOGO se haya quejado de 
que no le quedan más nodos libres. 

Si piensa grabar sus procedimientos en disco, asegúrese antes de que en el disco haya 
suficiente espacio libre. Puede para ello utilizar la orden CAT de AMSDOS (véase la 
parte 7 del ‘Curso de introducción’). 

Eche un vistazo a las páginas siguientes y pruebe alguno de los ejemplos; no espere en¬ 
tenderlo todo al primer intento. A medida que vaya familiarizándose con Dr. LOGO 
irá siendo capaz de utilizar nuevas instrucciones. 

Cuando desee concluir su sesión de trabajo con Dr. LOGO escriba: 
bye 


Lista de las primitivas de Dr. LOGO 

En esta sección damos la relación de las primitivas de Dr. LOGO, agrupadas en clases 
y ordenadas alfabéticamente dentro de cada grupo. Para la mayor parte de ellas se in¬ 
cluyen ejemplos de aplicación. 


Nota 

Las primitivas que en esta lista aparecen marcadas con un asterisco (*) no están 
disponibles en la versión de Dr. LOGO para CP/M 2.2 (cara 4 del juego de discos 
del sistema). Por consiguiente, los programas que utilicen esas primitivas no serán 
ejecutables en el CPC664 ni en el CPC464+DDI1, en los cuales sólo se puede utili¬ 
zar CP/M 2.2 (no CP/M Plus). 


Proceso de palabras y listas 

(Observe que en los ejemplos hemos incluido los signos ? y > donde corresponde.) 
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ascii 


Da el código ASCII del primer carácter de la palabra de entrada. 

?asci i "G 
71 

?ascii "g 
103 


bf 

(butfirst, todos menos el primero). Da como salida todos los caracteres de la entrada, 
salvo el primero. 

?b-f "trama 
rama 

?b-f [1 2 3] 

12 33 


bl 

(but last, todos menos el último). Da como salida todos los caracteres de la entrada, 
salvo el último. 

?bl "tramas 
trama 

?bl Cl 2 3 43 
II 2 33 


char 

Da el carácter cuyo código ASCII es el número de entrada. 

?char 83 
S 


count 

(contar). Da el número de elementos de que consta el objeto de entrada. 

?count "dos 

3 

?count [0 1 2 33 

4 
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emptyp 


(empty property, propiedad de vacío). Da como salida TRUE (verdadero) si la entrada 
es una palabra vacía o una lista vacía, y FALSE (falso) en caso contrario. 

?emptyp " 

TRUE 

?emptyp [] 

TRUE 

?emptyp tx3 
FALSE 

?make "x ti 
emptyp :x 
TRUE 


first 

(primero). Da como salida el primer elemento del objeto de entrada (sin tener en cuenta 
los corchetes). 

?i irst "kilo 
k 

?i irst [1 2 33 
1 


fput 

( firsput , poner el primero). Da como salida un objeto formado poniendo el primer ob¬ 
jeto de entrada como primer elemento del segundo objeto de entrada. 

?-fput *t "rama 
trama 

?-fput 1 12 33 
ti 2 33 


ítem 

(elemento). Da como salida el elemento especificado del objeto de entrada. 

?item 4 "grande 
n 
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last (*) 

(último). Da como salida el último elemento del objeto de entrada (cfr. first). 

?last “pez 
z 


le (*) 

(lower case , minúsculas). Da como salida la palabra de entrada, pero convirtiendo las 
mayúsculas a minúsculas. (Véase también uc.) 

?lc "NortE 
norte 


líst 


Da como salida una lista consistente en los objetos de entrada; conserva los corchetes 
externos de la lista (compárese con se). 

?(1ist 1 2 3 4) 
ti 2 3 41 

?list "garcía Cjavier] 

[garcía [javier-3] 

?<list) 

[ ] 


listp (*) 


(list property, propiedad de lista). Da como salida TRUE (verdadero) si la entrada es 
una lista, y FALSE (falso) en caso contrario. 

?listp "madre 
FALSE 

?listp [padre hermano hermana] 

TRUE 
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lput (*) 

(lastput, poner el último.) Da como salida un objeto formado poniendo el primer obje¬ 
to de entrada como último elemento del segundo objeto de entrada. 

?lput "r "recto 
rector 

?lput "r [recto] 

[recto r] 


memberp (*) 

(memberproperty, propiedad de pertenencia). Da como salida TRUE (verdadero) si el 
primer objeto de entrada es un elemento del segundo objeto de entrada, y FALSE en 
caso contrario. 

?memberp "b "palabra 
TRUE 

?memberp "chocolate [ [ vai ni 11 al [chocolate] [-f r esa] ] 
FALSE 

?memberp [chocolate] [[vaini1 la][chocolate][fresa]] 
TRUE 

numberp 

( numberproperty, propiedad de número). Da como salida TRUE (verdadero) si el ob¬ 
jeto de entrada es un número, y FALSE (falso) en caso contrario. 

?numberp 374.926 
TRUE 

?numberp "siete 
FALSE 

?rmmberp First 12 4 6 8] 

TRUE 


piece (*) 

Da como salida un objeto consistente en los elementos especificados del objeto de 
entrada. 

?piece 2 5 "procedimiento 
roce 

?piece 3 5 [Tito Juan Miguel Margarita Paco] 

[Miguel Margarita Paco] 
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se 


( sentence , frase). Da como salida una lista consistente en todos los objetos de entrada; 
elimina los corchetes externos de la lista (compárese con list). 

?make "1 ista_instrucciones rl 
repeat 4 t-fd 50 rt 90] 

?run (se "es :1 ista_instrucciones *ht) 

El signo de subrayar que figura entre lista e instrucciones se obtiene con [SHIFT]0. 


shuffle (*) 

(barajar). Da como salida una lista que consta de los mismos elementos que la lista de 
entrada, pero dispuestos en orden aleatorio. 

?shuf-fle Ca b c d] 

Ce b d a] 


uc (*) 

(upper case, mayúsculas). Da como salida la palabra de entrada, pero convirtiendo las 
minúsculas a mayúsculas. (Véase también le.) 

?uc "Letras 
LETRAS 


where (*) 

(dónde). Da como salida el número calculado en la expresión memberp más reciente 
que haya dado resultado TRUE. 

?memberp "r "Amstrad 
TRUE 

?show where 
5 


word 

(palabra). Da una palabra formada con las palabras de entrada. 

?word "nueva "mente 
nuevamente 
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wordp 

Da como salida TRUE (verdadero) si el objeto de entrada es una palabra o un número. 

?wordp "hola 
TRUE 

?wordp t 3 
FALSE 


Operaciones aritméticas 

arctan (*) 

Da como salida el arco (en grados) cuya tangente es el número de entrada. 

?arctan 0 
0 

?arctar> 1 
45 


eos 

Da como salida el coseno del ángulo de entrada (considerado en grados). 

?cos 60 
0.5 


int 

Da la parte entera del número de entrada. 

?int 4/3 
1 

quotient (*) 

(cociente). Da el cociente de la división entera de los dos números de entrada. 

?quotient 14 4 
3 

?14/4 

3.5 
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random 


Da un entero aleatorio no negativo menor que el número de entrada. 

?random 20 
7 


remainder (*) 

(resto). Da el resto de la división entera de los dos números de entrada, (el primero divi¬ 
dido por el segundo). 

?remainder 7 3 
1 

?remainder 8 4 
0 


rerandom (*) 

Hace que una expresión random ulterior reproduzca la misma sucesión aleatoria 
(char 9 es un tabulador horizontal para espacios.) 


?repeat 

10 

[ 

(type 

random 10 

char 

9 ) ] 



3 

7 


5 

3 2 

0 

4 

2 

6 

?repeat 

10 

[ 

(type 

random 10 

char 

9) ] 



9 

9 


1 

0 6 

1 

3 

5 

1 

?rerandom 








?repeat 

10 

[ 

(type 

random 10 

char 

9) ] 



2 

9 


0 

3 1 

6 

2 

3 

7 

?rerandom 








?repeat 

10 

[ 

(type 

random 10 

char 

9) ] 



2 

9 


0 

3 1 

6 

2 

3 

7 


round (*) 

(redondear). Da como salida el número de entrada redondeado al entero más próximo. 

?round 3.333333 

3 

?round 3.5 

4 
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sin 


Da como salida el seno del ángulo de entrada (considerado en grados). 

?sin 30 
0.5 


Da la suma de los números de entrada. 

?+ 2 2 
4 

?2 + 2 
4 


Da la diferencia de los dos números de entrada. 

?- 10 5 
5 

?10-5 

5 


Da el producto de los números de entrada. 

?# 4 6 
24 

?4*6 

24 


/ 

Da el cociente de los dos números de entrada. 

?/ 25 5 
5 

?25/5 

5 
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Operaciones lógicas 


and 

Da como salida TRUE (verdadero) si el valor lógico de todas las expresiones de entrada 
es ‘verdadero’, y FALSE (falso) en cualquier otro caso. 

?and (3<4) (7>4) 

TRUE 


Da como salida TRUE si la expresión de entrada es ‘falsa’. 

Da como salida FALSE si la expresión de entrada es ‘verdadera’. 

?not (3=4) 

TRUE 

?not (3=3) 

FALSE 


or 

Da como salida FALSE (falso) si todas las expresiones de entrada son ‘falsas’, y TRUE 
en cualquier otro caso. 

?or "TRUE "FALSE 
TRUE 

?or (3=4) (1=2) 

FALSE 


Da como salida TRUE (verdadero) si los dos objetos de entrada son iguales, y FALSE 
en caso contrario. 

?= "LOGO "LOGO 
TRUE 
? 1=2 
FALSE 
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> 


Da como salida TRUE (verdadero) si la primera palabra de entrada es mayor que la 
segunda, y FALSE en caso contrario. 

?>19 20 
FALSE 
?20>19 
TRUE 


< 

Da como salida TRUE (verdadero) si la primera palabra de entrada es menor que la 
segunda, y FALSE en caso contrario. 

?< 27 13 
FALSE 
?13<27 
TRUE 


Variables 

local 

Hace que la variable o variables de entrada sean accesibles solamente al procedimiento 
actual y a los procedimientos por él invocados. 

Xlocal "x "y B z) 


make 

(hacer). Asigna a la variable de entrada el valor del objeto de entrada. 

?maUe "lado 50 
?:lado 
50 


namep (*) 

(ñameproperty, propiedad de nombre). Da como salida TRUE (verdadero) si la pala¬ 
bra de entrada es el nombre de una variable, y FALSE en caso contrario. 
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?make “sabor "chocolate 

?:sabor 

chocolate 

?naroep "sabor 

TRUE 

?namep "chocolate 
FALSE 


thing (*) 

(cosa). Da el valor de la variable citada. 

?make "ordenador "amstrad 
?thing "ordenador 
amstrad 


Procedimientos 

define (*) 


(definir). Toma como definición del procedimiento especificado la lista de entrada 

?deiine "cuadrado Ct] Crepeat 4 [id 50 rt 90]]] 

?po "cuadrado 
to cuadrado 

repeat 4 [ id 50 rt 90 ] 
end 

?text "cuadrado 

[[] trepeat 4 Cid 50 rt 90]]] 


end 

Indica el final de la definición de un procedimiento; la palabra end debe figurar sola 
al principio de la última línea. 

?to cuadrado 

>repeat 4 Cid 50 rt 90] 

>end 

cuadrado defined 
?cuadrado 
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po 


(jyrint out, listar). Da el listado de la definición de los procedimientos o variables 
especificados. 

?po "cuadrado 
to cuadrado 

repeat 4 C-fd 50 rt 90] 
ertd 

?make "x 3 
?po " x 
x is 3 


pots 

(print out titles, listar títulos). Da la lista de los nombres y títulos de todos los procedi¬ 
mientos que hay en el espacio de trabajo. 

?pots 


text (*) 

Da la lista de la definición del procedimiento especificado. 

?to estrella «estrella de cinco puntas 
>repeat 5 C + d 30 rt 144 -id 30 lt 72] 

>end 

estrella de-fined 
?text "estrella 

[[] [repeat 5 C-fd 30 rt 144 -fd 30 lt 72]]] 


to 

Señala el inicio de la definición de un procedimiento. 

?to cuadrado 

>repeat 4 C-fd 50 rt 90] 

>end 

cuadrado de-fined 
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Edición 

ed 

( edit , editar, corregir). Carga los procedimientos o variables especificados en el tampón 
del editor de pantalla. 

?ed "cuadrado 

edall (*) 

('edit all, editar todos). Carga todas las variables y procedimientos en el tampón del edi¬ 
tor de pantalla y entra en el modo de edición. 

?edal1 

edf (*) 

(edit file, editar fichero). Lee en el disco el fichero especificado y lo carga en el editor 
de pantalla. Si no existe ese fichero, lo crea y entra en el modo de edición con el tampón 
vacío. 


?edf "estrella 


Funciones de la impresora 


copyon (*) 

(copia activada). Activa el modo ‘eco’, en el que todos los caracteres que aparecen en 
la pantalla son reproducidos en la impresora. 

?copyon 

copyoff (*) 

(copia desactivada). Desactiva el modo ‘eco’. 

?copyo-H 
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Pantalla de texto 


ct 

(clear text, borrar texto). Borra la ventana en la que está actualmente el cursor; lleva 
el cursor al extremo superior izquierdo de la ventana. 

?ct 


cursor (*) 

Da como salida una lista de coordenadas que consiste en los números de columna y 
fila de la posición actual del cursor en la ventana de texto. 

?ct 

?cursor 
[0 1 ] 

?<type [La posición del cursor es\ ]) show cursor 
La posición del cursor es £26 41 


pr 

(print, escribir). Escribe en la pantalla de texto los objetos de entrada; suprime los cor¬ 
chetes externos de las listas; efectúa un retorno del carro después de escribir el último 
objeto. (Compárese con show y type.) 

?pr [a b el 
abe 


seteursor (*) 

Sitúa el cursor en la posición especificada por la lista de entrada, que se interpreta co¬ 
mo lista de coordenadas de texto. 

?ct 

?to imagen 
>make "x random 20 
>make "y random 12 
>setcursor list :x ¡y pr "* 

>end 

?imagen 
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setsplit 

Especifica el número de líneas de texto que debe tener la pantalla mixta. (Véase ss.) 
?setsplit 10 


show 

(mostrar). Escribe en la pantalla de texto el objeto de entrada; mantiene los corchetes 
externos de las listas; efectúa un retorno del carro. (Compárese con pr y type.) 

?show Cabe] 

[a b c3 


ts 

(text screen, pantalla de texto). Asigna la pantalla completa como pantalla de texto. 
?ts 


type 

(mecanografiar). Escribe en la pantalla los objetos de entrada: suprime los corchetes 
externos de las listas; no efectúa un retorno del carro después de escribir el último obje¬ 
to. (Compárese con pr y show.) 

?type [a b c] 
abe 


Pantalla gráfica 

Como puede observar, la pantalla está en modo 1, con cuatro colores posibles; el siste¬ 
ma de coordenadas es igual al de BASIC. Las coordenadas se redondean al número 
par más próximo correspondiente a un punto de la pantalla. Los colores rojo, verde 
y azul se pueden graduar con los números 0, 1 y 2. 
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clean 


(limpiar). Borra la pantalla gráfica sin afectar a la tortuga. 

?i d 50 
?clean 


CS 

(clear screen, borrar pantalla). Borra la pantalla gráfica y restablece la situación inicial 
de la tortuga: posición en el punto [ 0 , 0 ] y rumbo 0 grados (norte), pluma abajo. 

?rt 90 fd 50 
?cs 


dot 

(punto). Dibuja un punto en la posición especificada por la lista de coordendas con 
el color de pluma actual. 

?dot [50 10] 


dote (*) 

(dot colour, color del punto). Da como salida el número del color que hay en el punto 
de coordenadas especificadas por la lista de entrada. Si el punto está fuera de la panta¬ 
lla, da -1. 


?cs 

?setpc 1 
?dot -50 50 
?setpc 2 
?dot 50 50 
?setpc 3 
?dot 50 -50 
?dotc 50 50 
2 

?dotc -50 -50 
0 

?dotc 1000 3000 
-1 
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fence 


(valla). Establece un límite que confina la posición de la tortuga a la pantalla gráfica 
visible. Ese límite se suprime con window. 

?fence 
?-f d 300 

Turtle out o-f bounds 


fill (*) (no implementada en la versión actual de CP/M Plus) 

(rellenar). Rellena un área con el color actual de la pluma; para ello cambia el color 
del punto que está bajo la tortuga (y todos los puntos contiguos que sean del mismo 
color) utilizando el estado actual de la pluma. 

?make "x 5 

?cs 

?st 

?pd 

?repeat 30 t-fd :x rt 90 make “x :x + 53 

?-fd 20 rt 90 

?-fd 10 

?pu 

?home 

?bk 2 

?pd 

?setpc 2 
?í ill 


fs 

(full screen, pantalla completa). Asigna la pantalla entera a los gráficos. 

?i s 


pal 

{palette, paleta). Escribe la listas de los números que representan las proporciones de 
los colores rojo, verde y azul asignadas a la pluma especificada. 

?pal 2 
[0 2 23 
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setbg (*) 


(set background, definir fondo). Asigna al color del fondo de la pantalla gráfica el nú¬ 
mero especificado. 

?s-f 

10 SS 5 FENCE 13 

(Esto muestra que el color del fondo es cero.) 

?pal 0 
Í0 0 13 
?setbg 2 
?sf 

[2 SS 5 FENCE 13 


setpal 

(setpalette, definir paleta). Asigna una combinación de colores a la paleta utilizada poi 
la pluma especificada. La lista representa las proporciones de rojo, verde y azul. 

?setpal 3[1 1 23 
?pal 3 
ti 1 23 


setscrunch (*) 

(set scrunch, definir relación de escalas; scrunch significa “estrujar” y hace referencia 
a la deformación que se produce en las imágenes de la pantalla cuando las escalas verti¬ 
cal y horizontal son distintas). Establece la relación entre las escalas vertical y horizon¬ 
tal en la pantalla gráfica. 

?5f 

10 SS 5 FENCE 13 
?to circunferencia 
>repeat 360 tfd 1 rt 13 
>end 

circunferencia defined 

?setscrunch 2 

?sf 

[0 SS 5 FENCE 23 
?circunferencia 
?setscrunch 2.5 
?circunferencia 
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sf 


(screert facts, datos de pantalla). Escribe en la pantalla toda la información relativa a 
la pantalla gráfica. El formato es: [<color de fondo) (estado de pantalla) (líneas 
texto) (estado de ventana) (relación de escalas)]. 

(color de fondo) es el número de pluma para el fondo (siempre igual a 0 en CP/M 2.2). 

(estado de pantalla) puede ser SS (pantalla mixta), FS (pantalla completa para gráfi¬ 
cos) o TS (pantalla completa para texto). 

(líneas texto) es el número de líneas reservadas para texto en la pantalla mixta, 
(estado de ventana) indica el modo WINDOW, WRAP o FENCE. 

(relación de escalas) representa la relación entre las escalas vertical y horizontal de la 
pantalla gráfica. Su valor se puede modificar con setscrunch (no en CP/M 2.2). 

?s f 

10 SS 5 FENCE 2.5] 


SS 

(split screen, pantalla mixta). Establece una ventana para texto dentro de la pantalla 
gráfica. 

?S5 

window 

(ventana). Permite que la tortuga se salga de los límites de la pantalla gráfica visible 
después de una orden wrap o fence. 

?fence fd 300 
Turtle out of bounds 
?window 
?f d 300 


wrap 

(superponer borde con borde). Hace que la tortuga aparezca por el lado opuesto de 
la pantalla cuando sobrepasa algún borde. 

?cs wrap 
?rt 5 fd 1000 
?cs window 
?rt 5 fd 1000 
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Gráficos de tortuga 


bk 

(backward, atrás). Mueve la tortuga el número de pasos especificado por el número 
de entrada, en sentido opuesto al señalado por su rumbo. 

?cs -fd 150 
?bk 50 


fd 

( forward , adelante). Mueve la tortuga el número de pasos especificado por el número 
de entrada, en el sentido señalado por su rumbo. 

?fd 80 


home (*) 

Lleva la tortuga a su situación inicial: posición [0 0] (centro de la pantalla gráfica) y 
rumbo 0 (norte). 

?-f d 100 
?rt 45 
?i d 100 
?home 


ht 

(hide turtle, ocultar tortuga). Hace la tortuga invisible, con lo que los dibujos son me¬ 
nos confusos y se realizan a mayor velocidad. 

?ht 

?cs -fd 50 
?st 


lt 

(left, izquierda). Gira el rumbo de la tortuga hacia la izquierda el número de grados 
especificado por el número de entrada. 
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?lt 90 


pd 


{pen down, bajar pluma). Baja la pluma de la tortuga para que ésta dibuje al moverse. 

?fd 20 pu -fd 20 
?pd 

?fd 20 


pe 


C Pen erase, pluma de borrar). Cambia el color de la pluma de la tortuga al color del 
fondo; la tortuga borra lo que encuentra dibujado en su camino. 

?fd 50 
?pe 

?bk 25 
?i d 50 
?pd -id 25 


pu 


C Pen up, subir pluma). Sube la pluma de la tortuga para que ésta no dibuje al moverse. 

?fd 30 
?pu 

?*d 30 
?pd -fd 30 


px 


C Pen exchange, pluma de inversión). Hace que la tortuga cambie el color de los pixels 
que encuentra coloreados en su camino por el color complementario o inverso. 

?fd 20 pu -fd 20 
?pd setpc 3 fd 20 
?px 

?bk 80 
?fd 80 
?pd bk 100 
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rt 


(right, derecha). Gira el rumbo de la tortuga hacia la derecha el número de grados espe¬ 
cificado por el número de entrada. 

?rt 90 


seth 

(set heading, establecer rumbo). Orienta la tortuga en el rumbo absoluto especificado 
por el número de entrada (en grados). Los números positivos la hacen girar en el senti¬ 
do de las agujas del reloj; los negativos, en el sentido contrario. 

?seth 90 


setpc 

(set pen colour, establecer color de pluma). Asigna a la tortuga la pluma especificada 
por el número de entrada. 

?setpc 1 


setpos 

(set position, establecer posición). Lleva la tortuga al punto especificado por la lista 
de coordenadas de entrada. 

?setpos [30 20] 


setx (*) 

Lleva la tortuga a un punto cuya coordenada X es la especificada, sin modificar la 
coordenada Y. (Véase también sety.) 

?setx 80 
?-f d 100 
?setx -50 
?-f d 50 
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sety (*) 


Lleva la tortuga a un punto cuya coordenada Y es la especificada, sin modificar la 
coordenada X. (Véase también setx.) 

?sety 90 
?+d 20 
?sety -50 
?-f d 50 


st 


(show turtle, mostrar tortuga). Hace la tortuga visible, si estaba oculta. 

?ht 

?+d 50 
?st 


tf 

(turtle facts, datos de tortuga). Escribe en la pantalla la información relativa a la tortu¬ 
ga. El formato es: [<coor x) <coor y) (rumbo) (estado de pluma) (pluma n) 
(visible)]. 

(coor x) y (coor y) son las coordenadas de la posición actual de la tortuga, 
(rumbo) es la orientación actual de la tortuga. 

(estado de pluma) indica PD (pluma bajada), PE (pluma de borrar), PX (pluma de 
inversión) o PU (pluma subida). 

(pluma n) indica el número de pluma de la tortuga. 

(visible) es TRUE (verdadero) si la tortuga es visible. 

?setpos [15 30] 

?rt 60 
?setpc 3 
?pe 
?ht 
?t i 

C15 30 60 PE 3 FALSE3 
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towards (*) 


(hacia). Da como salida un rumbo tal que, si la tortuga lo tuviera, “miraría” hacia la 
posición especificada con la lista de coordenadas. 

?seth towards list :x ’.y 


Gestión del espacio de trabajo 

er 

(erase, borrar). Borra del espacio de trabajo los procedimientos especificados. 

?er “cuadrado 

erall (*) 

(erase all, borra todos). Borra del espacio de trabajo todos los procedimientos y 
variables. 

?eral1 


era 

(erase ñame, borrar nombre). Borra del espacio de trabajo las variables especificadas. 

?make "lado [100] 

?make "ángulo [45] 

?:lado :ángulo 
[1001 
[45] 

?ern [lado ángulo] 

?:lado 

lado has vo valué 


nodes 

Da el número de nodos que quedan libres en el espacio de trabajo. 

?nodes 
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noformat (*) 


Elimina del espacio de trabajo el formato de los procedimientos, incluidos los comenta¬ 
rios, con el fin de liberar nodos. 

?to cuadrado 
>pd 

>repeat 4 

> [fd 50 ; esto es lo 

> rt 903 ; que se repite 
>pu 

>end 

cuadrado de-fined 
?no-f ormat 
?po "cuadrado 
to cuadrado 
pd 

repeat 4 [fd 50 rt 903 

pu 

end 


poall (*) 

Muestra las definiciones de todos los procedimientos y variables del espacio de trabajo. 

?poal1 


pons (*) 

Muestra los nombres y valores de todas las variables globales del espacio de trabajo. 

?pons 

medio es 40 
pequeño es 20 
grande es 80 


pops (*) 

Muestra los nombres y definiciones de todos los procedimientos del espacio de trabajo. 

?pops 
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recycle 

Libera el mayor número posible de nodos y reorganiza el espacio de trabajo. 

?recyc le 
?nodes 


Listas de propiedades 

glist 

(get list, obtener lista). Da una relación de todos los objetos del espacio de trabajo que 
tienen la propiedad de nombre especificado en sus respectivas listas de propiedades. 

?glist ".DEF 


gprop 

(get property, obtener propiedad). Da el valor que tiene en el objeto de entrada la pro¬ 
piedad cuyo nombre se especifica. 

?make "estatura "172 
?gprop "estatura ".APV 
172 


plist 

(property list, lista de propiedades). Escribe la lista de propiedades del objeto de 
entrada. 

?plist "estatura 
[.APV 1723 


pprop 

(put property, poner propiedad). Pone el par de propiedades de entrada en la lista de 
propiedades del objeto especificado. 

?pprop "usted ".APV "lector 

?:usted 

lector 
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pps (*) 


(property pairs, pares de propiedades). Muestra todos los pares de propiedades no es¬ 
tándar de todos los objetos que hay en el espacio de trabajo. 

?pprop "Sally "extensión 213 
?pps 

Sally’s extensión is 213 
?plist "Sally 
[extensión 213] 


remprop 


(remove property, retirar propiedad). Suprime la propiedad especificada de la lista de 
propiedades del objeto de entrada. 

?remprop "usted ".APV 

Ficheros en disco 

changef (*) 


(change file, cambiar fichero). Cambia el nombre de un fichero en el directorio de un 
disco. 


?d i r 

[CUADRADO CIRCULO ESTRELLA] 
?changef "circunferencia "circulo 
?dir 

[CUADRADO CIRCUNFERENCIA ESTRELLA] 


defaultd (*) 

(default drive, unidad implícita). Da el nombre de la unidad de disco implícita. 

?de+aultd 
A: 
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dir 


(directory, directorio). Da la lista de todos los nombres de ficheros creados por Dr. 
LOGO que se encuentran en la unidad de disco implícita; acepta símbolos comodín. 

?dir "a:???????? 

(Consulte la parte 1 del capítulo ‘AMSDOS y CP/M’, donde se explica cómo utilizar 
los símbolos comodín; Dr. LOGO no acepta el *.) 


dirpic (*) 

(picture, imagen). Da la lista de los nombres de los ficheros que contienen imágenes 
de pantalla en la unidad especificada (o en la implícita, si no se especifica otra). Acepta 
símbolos comodín. 

?dirpic 

[JUEGO CUADRADOS CIUDAD ESFERA_RELOJ1 


load 

Lee el fichero especificado y lo carga en el espacio de trabajo. 

?load "prueba 
?load "b:dibujos 


loadpic (*) 

Lee el fichero de imagen especificado y forma la imagen correspondiente en la pantalla. 

?loadpic "juego 
?loadpic "b:juego 


save 

Graba en el disco el contenido del espacio de trabajo, con el nombre de fichero 
especificado. 

?save "dibujos 
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Nota. Antes de grabar, inserte un disco inicializado en el que quede espacio suficiente 
para el fichero que vaya a grabar. No grabe nunca nada en el disco maestro (de 
hecho, los orificios de protección de los discos maestros deben estar siempre 
cerrados). 

Si está utilizando la versión de Dr. LOGO para CP/M 2.2 (cara 4), no podrá 
cambiar el disco a mitad de la sesión de trabajo. En este caso es aún más impor¬ 
tante disponer de un disco de trabajo con CP/M 2.2 y Dr. LOGO en el que haya 
abundante espacio libre para grabar programas. 


savepic (*) 

Graba en el disco información completa sobre la imagen que hay en la pantalla, con 
el nombre de fichero especificado. 

?savepic "es-fera_reloj 
?savep ic "b: es-f era_reloj 


Nota. Antes de grabar, inserte un disco inicializado en el que quede espacio suficiente 
para el fichero que vaya a grabar. No grabe nunca nada en el disco maestro (de 
hecho, los orificios de protección de los discos maestros deben estar siempre 
cerrados). 

Si está utilizando la versión de Dr. LOGO para CP/M 2.2 (cara 4), no podrá 
cambiar el disco a mitad de la sesión de trabajo. En este caso es aún más impor¬ 
tante disponer de un disco de trabajo con CP/M 2.2 y Dr. LOGO en el que haya 
abundante espacio libre para grabar programas. 


setd (*) 

(definir unidad). Establece como unidad implícita la especificada. 

?defaultd 
A: 

?d i r 

[CUADRADO CIRCUNFERENCIA ESTRELLA] 

?setd b: 

?defaultd 
B: 

?d i r 

[TRIANGULO CASA] 


6/36 


Introducción a LOGO 



Teclado y joystick 


buttonp 

(button pressed, botón pulsado). Da como salida el valor lógico TRUE (verdadero) si 
está pulsado el botón del joystick cuyo número se especifica (0 o 1). 

?to disparo 
>label "bucle 

>if (buttonp 0) Cpr [fuego el 0!33 
>if (buttonp 1) £pr [fuego el 1!3 3 
>go "bucle 
>end 

La situación de la empuñadura se determina con paddle. 


keyp 

(key pressed, tecla pulsada). Da como salida el valor lógico TRUE (verdadero) si se ha 
tecleado alguna tecla y está en espera de ser leída. 

?to tecla 

>if keyp [op rc3 [op "3 
>end 


paddle 

Determina la situación del joystick 0 o el 1. El significado de los valores generados es 
el siguiente: 


Valor 

Significado 

255 

Inactivo 

0 

Arriba 

1 

Arriba y a la derecha 

2 

A la derecha 

3 

Abajo y a la izquierda 

4 

Abajo 

5 

Abajo y a la izquierda 

6 

A la izquierda 

7 

Arriba y a la izquierda 


Introducción a LOGO 


6/37 



?paddle 0 
255 


Los botones de disparo se comprueban con buttonp. 


re 

(read character, leer carácter). Da como salida el primer carácter que se teclee a 
continuación. 

?make "tecla re 

... ahora teclee una X ... 

?:tecla 
X 


rl 


(read list, leer lista). Da como salida una lista que consiste en la línea que se va a teclear 
a continuación. La entrada tiene que terminar con un retorno del carro. 

?make “1 ista_lnstrucciones rl 
repeat 4 tfd 50 rt 90] 

?:1ista_instrucciones 
Crepeat 4 [fd 50 rt 90]] 


rq 


(read quote, leer literalmente). Da como salida una palabra que consiste en la línea que 
se va a teclear a continuación. La entrada tiene que terminar con un retorno del carro. 

?make "orden rq 
repeat 3 C-fd 60 rt 120] 

?:orden 

repeat 3 Cid 60 rt 120] 
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Sonido 


Las órdenes de sonido son peculiares de la implementación para AMSTRAD de Dr. 
LOGO; son similares a sus análogos en BASIC. 

Consulte la parte 9 del ‘Curso de introducción’. 


sound 

Envía un sonido a la cola de sonidos. El formato es: [(situación de canales) (periodo 
de tono) (duración) (volumen) (envolvente de volumen) (envolvente de tono) 
(ruido)]. Solamente los dos primeros parámetros son obligatorios. 

?sound [1 20 50] 


env 

Define una envolvente de volumen. El formato es: [(número de la envolvente) (seccio¬ 
nes de envolvente)]. 

?env El 100 2 201 
?sound E1 200 300 5 11 


ent 

Define una envolvente de tono. El formato es: [(número de la envolvente) (secciones 
de envolvente)]. 

?ent El 100 2 20] 

?sound El 200 300 511] 
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release 


Libera los canales de sonido que han sido retenidos en una orden sound. Los canales 
que se liberan son: 


Valor de entrada 

Canales liberados 

0 

Ninguno 

1 

A 

2 

B 

3 

A y B 

4 

C 

5 

A y C 

6 

B y C 

7 

A, B y C 


?release 1 


Control de ejecución 

bye 

Da por terminada la actual sesión de trabajo con Dr. LOGO. 
?bye 


co 

Reanuda la ejecución tras una pausa provocada por [CONTROUZ, pause o 
ERRACT. 

?co 


g» 

Ejecuta la línea del procedimiento actual que está identificada por la etiqueta que se 
menciona como entrada. 

>go "bucle 
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if 


Ejecuta una de dos listas de instrucciones, dependiendo del valor lógico de la expresión 
de entrada; las instrucciones deben ser listas literales entre corchetes. La segunda lista 
es opcional. 

>i-F (a>b) tpr Ca es mayor]] 

>tpr tb es mayor]] 


label 

Identifica una línea para que pueda ser ejecutada por una instrucción go. 

>label "bucle 


op 

o output , salida). Convierte el objeto de entrada en la salida del procedimiento y da por 
terminada la ejecución de éste. 

?op [resultado] 

repeat 

Ejecuta la lista de instrucciones el número de veces especificado. 

?repeat 4 C-Fd 50 rt 90] 


run 

Ejecuta la lista de instrucciones especificada. 

?make " 1 ista_instrucc iones [-Fd 40 rt 90] 
?run :1ista_instrucciones 


stop 

Detiene la ejecución del procedimiento actual y retorna a TOPLEVEL (nivel exterior, 
donde aparece el signo ?) o al procedimiento que lo invocó. 

?stop 
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Introduce en la ejecución del procedimiento una pausa de duración especificada (en 
unidades de 0.022 segundos). 

?wait 200 


Gestión de excepciones/errores 


catch 

Intercepta errores y situaciones especiales que ocurran durante la ejecución de la lista 
de entrada. 

>catch "error [+ II []] 

>pr Caqui estoy] 
aquí estoy 


error 

Da una lista cuyos elementos describen el error más reciente. 

>catch "error Cseguir.hasta.error] 

>show error 

notrace (*) 

Desactiva el modo ‘trace’ de ejecución de los procedimientos. (Véase trace.) 
?notrace 

nowatch (*) 

Desactiva el modo ‘watch’ de ejecución de los procedimientos. (Véase watch.) 
?nowatch 
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pause 


Suspende la ejecución del procedimiento actual para permitir la interacción con el in¬ 
térprete o el editor. 

>i-f : lado>5 [pause] 

throw 

Ejecuta la línea identificada por el nombre de entrada de una expresión catch anterior. 
?throw "TOPLEVEL 

trace (*) 

Establece un modo de ejecución de procedimientos consistente en que en la pantalla 
se indica qué procedimiento está siendo ejecutado en cada momento. 

?trace 

watch (*) 

Establece un modo de ejecución de procedimientos consistente en que en la pantalla 
se indica qué instrucción va a ser ejecutada y se hace una pausa para que el usuario 
observe o modifique la evolución del procedimiento. 

?watch 


Primitivas del sistema 

.contents 

Muestra el contenido del espacio para símbolos de Dr. LOGO. 

.deposit 

Escribe el segundo número de entrada en la posición absoluta de memoria especificada 
por el primero. 
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.examine 


Muestra el contenido de la posición absoluta de memoria especificada. 

•in (*) 

Lee el valor presente en la puerta especificada. 


.out (*) 

Envía el valor especificado a la puerta especificada. 


Variables del sistema 

ERRACT 

Si tiene el valor lógico TRUE (verdadero), introduce una pausa cuando se produce un 
error y luego retorna a TOPLEVEL. 

FALSE 

Valor de sistema. (Falso.) 


REDEFP 

Si tiene el valor lógico TRUE (verdadero), permite la redefinición de primitivas. 


TOPLEVEL 

throw "TOPLEVEL provoca la salida de todos los procedimientos pendientes (volvien¬ 
do al nivel exterior). 


TRUE 

Valor de sistema. (Verdadero.) 
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Propiedades del sistema 

.APV 

Valor de propiedad asociado; es el valor de una variable global. 


.DEF 

Definición de un procedimiento. 


.ENL (*) 

Fin de una línea de procedimiento que está partida por un retorno del carro o por 
espacios. 

•EMT (*) 

Principio de una línea de procedimiento que está partida por un retorno del carro o 
por espacios. 


.PRM 


Identifica una primitiva. 

.REM (o bien ;) (*) 

Observaciones o comentarios. 
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Capítulo 7 

Para su referencia ... 


Este capítulo contiene la mayor parte de la información que usted pueda 
necesitar para aprender a manejar el ordenador. 

Temas tratados: 

* Posiciones del cursor y códigos de control 

* Interrupciones 

* Caracteres ASCII y caracteres gráficos 

* Esquemas del teclado 

* Sonidos 

* Mensajes de error 

* Palabras de error 

* Palabras reservadas de BASIC 

* Plantillas 

* Conexiones 

* Impresoras 

* Joysticks 

* Organización de los discos 

* Ampliaciones del sistema residentes (RSX) 

* Memoria 

* Emulador de consola de CP/M Plus 

* Juego de caracteres de CP/M Plus 

Para más completa información sobre BASIC y el firmware del CPC6128, consúltense 
las publicaciones SOFT967 y SOFT968, respectivamente. 
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Parte 1: Posiciones del cursor y códigos 
ampliados de control en BASIC 


En ciertas aplicaciones el cursor puede encontrarse fuera de la ventana de texto. Algu¬ 
nas operaciones fuerzan al cursor a ocupar una posición permitida antes de poder ser 
llevadas a cabo. Son las siguientes: 

1. Escribir un carácter. 

2. Exhibir el signo del cursor (el rectángulo). 

3. Obedecer los códigos de control señalados con un asterisco en la tabla siguiente. 
El proceso de forzar el cursor a ocupar una posición permitida consiste en lo siguiente: 

1. Si el cursor está a la derecha del borde derecho de la ventana, salta al extremo iz¬ 
quierdo de la línea siguiene. 

2. Si el cursor está a la izquierda del borde izquierdo de la ventana, salta al extremo 
derecho de la línea anterior. 

3. Si el cursor está por encima del borde superior, el contenido de la ventana se despla¬ 
za una línea hacia abajo y el cursor aparece en la primera línea. 

4. Si el cursor está por debajo del borde inferior, el contenido de la ventana se desplaza 
una línea hada arriba y el cursor aparece en la última línea. 

Las comprobaciones y operaciones se realizan en el orden de la lista anterior. Las posi¬ 
ciones ilegales del cursor pueden ser cero o negativas, es decir, a la izquierda y por enci¬ 
ma de la ventana. 

Los códigos del margen 0 a 31 no producen ningún símbolo cuando se los envía a la 
pantalla, sino que son interpretados como códigos de control (y deben ser utilizados 
con cuidado). Algunos de ellos alteran el significado de uno o varios de los códigos si¬ 
guientes, que hacen las funciones de parámetros del código original. 

Si se envía un código de control a la pantalla gráfica, su efecto es dibujar un símbolo 
relacionado con la función que tendría si se lo generase mediante el teclado (v. g., 
&07‘BEL’: [CONTROLJG). Ejercerá su función de control si se lo envía a la pantalla 
mediante: 

PRINT CHR$<Ií 07) o bien PRINT “ft" 

donde el símbolo del “timbre” se obtiene pulsando [CONTROL]G en el momento de 
teclear la instrucción PRINT. 

Los códigos señalados con * en la lista siguiente fuerzan al cursor a ocupar una posi¬ 
ción permitida en la ventana antes de ser obedecidos. Para cada código se da el núme¬ 
ro, en hexadecimal y en decimal, y la descripción de su función. 
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Códigos de control en BASIC 


Valor 

Nombre 

Parámetro 

Significado 

&00 0 

NUL 


Sin efecto. Se lo ignora. 

&01 1 

SOH 

0 a 255 

Escribe el símbolo correspondiente al va¬ 
lor del parámetro, lo que permite exhibir 
los símbolos del 0 al 31. 

&02 2 

STX 


Hace invisible el cursor de texto. Equivale 
a la orden CURSOR con el parámetro 
(conmutador de usuario) igual a 0. 

&03 3 

ETX 


Hace visible el cursor de texto. Equivale a 
la orden CURSOR con el parámetro 
(conmutador de usuario) igual a 1. Nóte¬ 
se que para visualizar el cursor desde den¬ 
tro de un programa de BASIC (aparte de 
la situación en que BASIC está esperando 
una entrada por el teclado) es necesario 
ejecutar una orden CURSOR con el pará¬ 
metro (conmutador del sistema) igual a 1. 

&04 4 

EOT 

0 a 2 

Establece el modo de pantalla. El paráme¬ 
tro se toma MOD 4. Equivale a la orden 

MODE. 

&05 5 

ENQ 

0 a 255 

Envía a la posición del cursor gráfico el 
carácter correspondiente al valor del 
parámetro. 

&06 6 

ACK 


Habilita la pantalla de texto. (Véase &15 
NAK.) 

&07 7 

BEL 


Produce un pitido. Obsérvese que este có¬ 
digo borra las colas de sonido. 

&08 8 

*BS 


Hace retroceder el cursor una posición. 

&09 9 

*TAB 


Hace avanzar el cursor una posición. 
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Valor 

Nombre 

Parámetro 

Significado 

&0A 10 

*LF 


Hace bajar el cursor una línea. 

&0B 11 

*VT 


Hace subir el cursor una línea. 

&0C 12 

FF 


Borra la ventana de texto y lleva el cursor 
al extremo superior izquierdo. Equivale a 
la orden CLS. 

&0D 13 

*CR 


Lleva el cursor al extremo izquierdo de la 
línea actual. 

&0E 14 

SO 

0 a 15 

Establece la tinta asignada al papel. El pa¬ 
rámetro se toma MOD 16. Equivale a la 
orden PAPER. 

&0F 15 

SI 

0 a 15 

Establece la tinta asignada a la pluma. El 
parámetro se toma MOD 16. Equivale a la 
orden PEN. 

&10 16 

*DLE 


Borra el carácter que está en la posición 
del cursor. Rellena la célula del carácter 
con el color actual del papel. 

&11 17 

*DC1 


Borra desde el extremo izquierdo de la 
ventana hasta la posición actual del cursor 
inclusive. Rellena las células afectadas con 
el color actual del papel. 

&12 18 

*DC2 


Borra desde la posición actual del cursor 
inclusive hasta el extremo derecho de la 
ventana. Rellena las células afectadas con 
el color actual del papel. 

&13 19 

*DC3 


Borra desde el principio de la ventana has¬ 
ta la posición actual del cursor inclusive. 
Rellena las células afectadas con el color 
actual del papel. 

&14 20 

*DC4 


Borra desde la posición actual del cursor 
inclusive hasta el final de la ventana. Re¬ 
llena las células afectadas con el color ac¬ 
tual del papel. 
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Valor 

Nombre 

Parámetro 

Significado 

&15 

21 

NAK 


Inhibe la pantalla de texto, la cual no reac¬ 
ciona ante nada que se le envía mientras 
no reciba el código ACK (&06 6) 

&16 

22 

SYN 

0 a 1 

Se toma el parámetro MOD 2. Opción de 
transparencia: 0 desactiva, 1 activa. 

&17 

23 

ETB 

0 a 3 

Se toma el parámetro MOD 4. Establece el 
modo de tinta para gráficos: 





0 normal 

1 XOR 

2 AND 

3 OR 

&18 

24 

CAN 


Intercambia las tintas de pluma y papel. 

&19 

25 

EM 

0 a 255 

Define la matriz de un carácter definible 




0 a 255 

por el usuario. Equivale a la orden 




0 a 255 

SYMBOL. Lleva nueve parámetros. El 




0 a 255 

primero es el número del carácter; los 




0 a 255 

ocho restantes, el diseño del carácter. El 




0 a 255 

bit más significativo del primer byte co- 




0 a 255 

rresponde al punto extremo superior iz- 




0 a 255 

quierdo del carácter. El bit menos signifi- 




0 a 255 

cativo del último byte corresponde al pun¬ 
to extremo inferior derecho del carácter. 

&16 

26 

SUB 

1 a 80 

Define una ventana. Equivale a la orden 




1 a 80 

WIN DOW. Los dos primeros parámetros 




1 a 25 

especifican los bordes izquierdo y derecho 




1 a 25 

de la ventana; el menor de ellos se conside¬ 
ra definitorio del borde izquierdo. Los dos 
últimos parámetros especifican los bordes 
superior e inferior de la ventana; el menor 
de ellos se considera definitorio del borde 





superior. 

&1B 

27 

ESC 


Sin efecto. Se lo ignora. 
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Valor 

Nombre 

Parámetro 

Significado 

&1C 28 

FS 

0 a 15 

0 a 31 

0 a 31 

Asigna dos colores a una tinta. Equivale a 
la orden INK. El primer parámetro (MOD 
16) especifica el número de tinta; los dos 
siguientes (MOD 32), los colores desea¬ 
dos. (Los valores 27 a 31 no corresponden 
a colores definidos.) 

&1D 29 

GS 

0 a 31 

0 a 31 

Asigna dos colores al borde. Equivale a la 
orden BORDER. Los dos parámetros 
(MOD 32) especifican los colores. (Los va¬ 
lores 27 a 31 no corresponden a colores 
definidos.) 

&1E 30 

RS 


Lleva el cursor al extremo superior iz¬ 
quierdo de la ventana. 

&1F 31 

US 

1 a 80 

1 a 25 

Lleva el cursor a la posición especificada 
dentro de la ventana actual. Equivale a la 
orden LOCATE. El primer parámetro re¬ 
presenta la columna; el segundo, la línea. 


Parte 2: El sistema operativo 

La gestión interna del CPC6128 es realizada en tiempo real por un sofisticado sistema 
operativo. El sistema operativo es una especie de ‘guardia de tráfico’ que controla el 
flujo entre entradas y salidas. 

Su función primordial es servir de intermediario (interfaz) entre BASIC y los circuitos 
electrónicos. Por ejemplo, cuando el programa exige que parpadeen las tintas, BASIC 
entrega al sistema operativo los parámetros y éste realiza el trabajo. 

El sistema operativo de la máquina es lo que se suele denominar ‘firmware’. Es un pro¬ 
grama grabado en ROM y comprende las rutinas en código de máquina que son invoca¬ 
das por las órdenes de alto nivel de BASIC. 

Si se siente tentado a modificar el contenido de posiciones de memoria (con la orden 
POKE) o a invocar subrutinas del sistema operativo (con CALL), grabe el programa 
antes de que sea demasiado tarde. 

El firmware del sistema operativo del CPC6128 está descrito en la publicación SOFT 
968 y queda fuera del alcance de este manual. 
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Si usted piensa programar en código de máquina, debe proveerse de un programa en¬ 
samblador. El DEVPAC de AMSOFT incluye un ensamblador de Z80 reubicable, con 
editor, desensamblador y monitor. 


Parte 3: Interrupciones 

El CPC6128 utiliza ampliamente las interrupciones del Z80 para proporcionar un siste¬ 
ma operativo que incluye varias características multitarea, de las que son ejemplo las 
estructuras AFTER y EVERY descritas en otro lugar de este manual. El orden de priori¬ 
dad de los temporizadores es el siguiente: 

Break ([ESC11ESC]) (detención del programa) 

Temporizador 3 

Temporizador 2 (y las tres colas de sonido) 

Temporizador 1 
Temporizador 0 

Las interrupciones sólo se deben programar después de considerar las consecuencias de 
los posibles estados intermedios de las variables en el momento de la interrupción. La 
subrutina de interrupción debe evitar interacciones indeseadas con el estado de las va¬ 
riables del programa principal. 

Las colas de sonidos tienen interrupciones independientes, de igual nivel de prioridad. 
Una vez iniciada una interrupción de sonido, ya no puede ser interrumpida por otra 
de sonido. Este mecanismo permite que las rutinas de interrupción de sonido puedan 
compartir variables sin estar sujetas a los riesgos mencionados. 

Cuando se habilita una interrupción de cola de sonido (con ON SQ GOSUB), la inte¬ 
rrupción se realiza inmediatamente si la cola de sonido del canal correspondiente no 
está llena; si lo está, la interrupción se producirá cuando termine el sonido actual y que¬ 
de espacio libre en la cola. La acción de la interrupción inhibe el suceso, de modo que 
la subrutina debe ser rehabilitada si se la va a utilizar más tarde. 

Las acciones de enviar un sonido y de examinar el estado de la cola inhiben también 
la interrupción de sonido. 
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Parte 4: Caracteres ASCII y caracteres 
gráficos en BASIC 

ASCII 


En la tabla siguiente se da la relación de los códigos y caracteres ASCII. Los números 
están en decimal, octal y hexadecimal. En las siguientes páginas se ilustra el diseño de 
los caracteres generados por el CPC6128. 


DEC OCTAL HEX ASCII 

50 062 32 2 

51 063 33 3 

52 064 34 4 

53 065 35 5 

54 066 36 6 

55 067 37 7 

56 070 38 8 

57 071 39 9 

58 072 3A : 

59 073 3B ; 

60 074 3C < 

61 075 3D 

62 076 3E > 

63 077 3F 7 

64 100 40 @ 

65 101 41 A 

66 102 42 B 

67 103 43 C 

68 104 44 D 

69 105 45 E 

70 106 46 F 

71 107 47 G 

72 110 48 H 

73 111 49 I 

74 112 4A J 

75 113 4B K 

76 114 4C L 

77 115 4D M 

78 116 4E N 

79 117 4F O 

80 120 50 P 

61 121 51 Q 

82 122 52 R 

83 123 53 S 

84 124 54 T 

85 125 55 U 

86 126 56 V 

87 127 57 W 

88 130 58 X 

89 131 59 Y 

90 132 5A Z 

91 133 5B [ 

92 134 5C \ 

93 135 5D ] 

94 136 5E t 

95 137 5F _ 

96 140 60 

97 141 61 a 

98 142 62 b 

99 143 53 c 


DEC OCTAL HEX Caracteres ASCII 


0 

000 

00 

NUL ([CONTROL] @) 

1 

001 

01 

SOH ((CONTROLIA) 

2 

002 

02 

STX ([CONTROL1B) 

3 

003 

03 

ETX ((CONTROL1C) 

4 

004 

04 

EOT KCONTROL1D) 

5 

005 

05 

ENQ (ICONTROL1E) 

6 

006 

06 

ACK ([CONTROL]F) 

7 

007 

07 

BRL (ÍCONTROL]G) 

8 

010 

08 

BS ([CONTROL]H) 

9 

011 

09 

HT ([CONTROL]!) 

10 

012 

0A 

LF ([CONTROL] J) 

11 

013 

0B 

VT ((CONTROUK) 

12 

014 

OC 

FF ((CONTROLJL) 

13 

015 

0D 

CR ((CONTROLJM) 

14 

016 

0E 

SO (ECONTROLJN) 

15 

017 

0F 

SI ((CONTROUO) 

16 

020 

10 

DLE ((CONTROL1P) 

17 

021 

11 

DC1 ((CONTROL1Q) 

18 

022 

12 

DC2 ([CONTROL1RJ 

19 

023 

13 

DC3 ((CONTROL1S) 

20 

024 

14 

DC4 ((CONTROLIT) 

21 

025 

15 

NAK (tCONTROLJU) 

22 

026 

16 

SYN ([CONTROL1V) 

23 

027 

17 

ETB ([CONTROLiW) 

2A 

030 

18 

CAN (ICONTROL1X) 

25 

031 

19 

EM ([CONTROL] Y) 

26 

032 

1A 

SUB ((CONTROL1Z) 

27 

033 

IB 

ESC ([CONTROL]!) 

28 

034 

1C 

FS ([CONTROL]\) 

29 

035 

ID 

GS ([CONTROL]]) 

30 

036 

1E 

RS ([CONTROL]!) 

31 

037 

1F 

US ([CONTROL») 

32 

040 

20 

SP 

33 

041 

21 

! 

34 

042 

22 


35 

043 

23 

# 

36 

044 

24 

$ 

37 

045 

25 

% 

38 

046 

26 

& 

39 

047 

27 


40 

050 

28 

( 

41 

051 

29 

) 

42 

052 

2A 

* 

43 

053 

2B 

+ 

44 

054 

2C 

, 

45 

055 

2D 

- 

46 

056 

2E 


47 

057 

2F 

/ 

48 

060 

30 

0 

49 

061 

31 

1 


DEC OCTAL HEX ASCH 


100 144 

101 145 

102 146 

103 147 

104 150 

105 151 

106 152 

107 153 

108 154 

109 155 

110 156 

111 157 

112 160 

113 161 

114 162 

115 163 

116 164 

117 165 

118 166 

119 167 

120 170 

121 171 

122 172 

123 173 

124 174 

125 175 

126 176 


64 d 

65 e 

66 f 

67 g 

68 h 

69 i 

6A j 

6B k 

6C I 

6D m 

6E n 

6E o 

70 p 

71 q 

72 r 

73 s 

74 t 

75 u 

76 v 

77 w 

78 x 

79 y 

7A z 

7B { 

7C ! 

7D ) 

7E 
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Conjunto de caracteres gráficos 
específicos de la máquina 


Los caracteres aquí reproducidos están representados en la 
matriz estándar de 8 x 8 en la que se basa la visualización de 
texto en la pantalla del CPC6128. Los caracteres definidos 
por el usuario pueden ser agrupados para conseguir efectos 
especiales. Véase la sección ‘Caracteres definidos por el 
usuario’ en el capítulo ‘Cuando usted guste .. 



FBFSfn 

::::r 

ni 


35 

&H23 

&X00100011 



37 

&H25 

&X00100101 



áSB 


38 

&H26 

&X00100110 




f 


39 

&H27 

&X00100111 



&H29 

&X00101001 



42 

&H2A 

&X00101010 



43 

&H2B 

&X00101011 


■■■ 

■■■ 

■■■■i 

■■■■i 


■■■ 

■■■■i 

■■■ 

■■■■i 

■■■ 

■■■■i 

■■■ 

■■■■i 


45 

&H20 

&X00101101 



46 

&H2E 

&X00101110 



&H2F 

&X00101111 


32 &H2C 
&X00100000 



36 

&H24 

&X00100100 



40 

&H28 

&X00101000 


44 

&H2C 

&X00101100 



48 

&H30 

&X00110000 
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49 

&H31 

&X00110001 



53 

&H35 

&X00110101 



57 

&H39 

&X00111001 


I I I I I I I I 


S^PflW 

■■■■■■■i 


tttüdbü 

61 

&H3D 

&X00111101 



65 

&H41 

&X01000001 



50 

&H32 

&XÓ0110010 



54 

&H36 

&X00110110 



&H3A 

&X00111010 



&H3E 

&X00111110 



66 

&H42 

&X01000010 



&H33 

&X00110011 



55 

&H37 

&X00110111 



59 

&H3B 

&X00111011 



&H3F 

&X00111111 



67 

&H43 

&X01000011 



52 

&H34 

&X00110100 



56 

&H38 

&X00111000 



60 

&H3C 

&X00111100 



64 

&H40 

&X01000000 



68 

&H44 

&X01000100 
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&H45 

&X01000101 


&H46 

&X01000110 


&H47 

&X01000111 


&H48 

&X01001000 



73 

&H49 

&X01001001 



77 

&H4D 

&X01001101 



81 

&H51 

&X01010001 



85 

&H55 

&X01010101 



&H4A 

&X01001010 



78 

&H4E 

&X01001110 



82 

&H52 

&X01010010 



&H56 

&X01010110 



75 

&H4B 

&X01001011 



79 

&H4F 

&X01001111 


i- 

■■ 

■u 

ÍBJ! 

IMILB 

c 


83 

&H53 

&X01 

010011 

■ i ■■■ i ■ i 

■ 

■ 

■ 

fi i 

-í 

l ■ 

U —a 

■■i ■ 

87 

&H57 

&X01010111 



76 

&H4C 

&X01001100 



80 

&H50 

&X01010000 



84 

&H54 

&X01010100 



88 

&H58 

&X01011000 
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89 

&H59 

&X01011001 



93 

&H5D 

&X01011101 



97 

&H61 

&X01100001 



101 

&H65 

&X01100101 



105 

&H69 

&X01101001 


90 

&H5A 

&X01011010 



94 

&H5E 

&X01011110 



&H62 

&X01100010 


m 

■: 

■■ 

te 

■■ 

■■ 

■■ 

■■ 

■■ 


102 

&H66 

&X01100110 



&H6A 

&X01101010 


91 

&H5B 

&X01011011 


■ 

■ 

■ 

■ 

■ 

■ 


■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 


■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

h 


r 


95 

&H5F 

&X01011111 



99 

&H63 

&X01100011 



103 

&H67 

&X01100111 



107 

&H6B 

&X01101011 


92 

&H5C 

&X01011100 



96 

&H60 

&X01100000 



100 

&H64 

&X01100100 



104 

&H68 

&X01101000 



108 

&H6C 

&X01101100 
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109 

&H6D 

&X01101101 


110 

&H6E 

&X01101110 


111 

&H6F 

&X01101111 


112 

&H70 

&X01110000 



113 

&H71 

&X01110001 


114 

&H72 

&X01110010 


115 

&H73 

&X01110011 



116 

&H74 

&X01110100 



117 118 119 120 

&H75 &H76 &H77 8.H78 

&X01110101 &X01110110 &X01110111 &X01111000 



121 122 123 124 

&H79 &H7A &H7B &H7C 

&X01111001 &X01111010 &X01111011 &X01111100 



125 

&H7D 

&X01111101 


126 

&H7E 

&X01111110 


127 

&H7F 

&X01111111 


128 

&H80 

&X10000000 
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129 130 131 132 

&H81 &H82 &H83 &H84 

&X10000001 &X10000010 &X10000011 &X10000100 



133 

&H85 

&X10000101 


134 

&H86 

&X10000110 


135 

&H87 

&X10000111 


136 

&H88 

&X10001000 



137 138 139 140 

&H89 &H8A &H8B &H8C 

&X10001001 &X10001010 &X10001011 &X10001100 



141 

&H8D 

&X10001101 


142 

&H8E 

&X10001110 


143 

&H8F 

&X10001111 


144 

&H90 

&X10010000 



145 

&H91 

&X10010001 


146 

&H92 

&X10010010 


147 

&H93 

&X10010011 


148 

&H94 

&X10010100 
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&X10010101 &X10010110 &X10010111 &X10011000 



153 154 155 156 

&H99 &H9A &H9B &H9C 

&X10011001 &X10011010 &X10011011 &X10011100 



&H9D &H9E &H9F &HAO 


&X10011101 &X10011110 &X10011111 &X10100000 



161 162 163 164 

&HA1 &HA2 &HA3 &HA4 

&X10100001 &X10100010 &X10100011 &X10100100 



165 166 167 168 

&HA5 &HA6 &HA7 &HA8 

&X10100101 &X10100110 &X10100111 &X10101000 
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169 

&HA9 

&X10101001 


170 

&HAA 

&X10101010 


171 

&HAB 

&X10101011 


172 

&HAC 

&X10101100 



173 

&HAD 

&X10101101 



177 

&HB1 

&X10110001 



181 

&HB5 

&X10110101 



185 

&HB9 

&X10111001 



174 

&HAE 

&X10101110 



175 

&HAF 

&X10101111 


176 

&HB0 

&X10110000 



178 

&HB2 

&X10110010 



179 

&HB3 

&X10110011 


ii 

■■■■■■■ 

inuuuB 

V 

m i i ■ 

r ■■■■ 

i 

■1 

!■ íTr ■ 


180 

&HB4 

&X10110100 



182 

&HB6 

&X10110110 



&HB7 &HB8 

&X10110111 &X10111000 
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189 

&HBD 

&X10111101 



&HC1 

&X11000001 



197 

&HC5 

&X11000101 


190 

&HBE 

&X10111110 



194 

&HC2 

&X11000010 



198 

&HC6 

&X11000110 


191 

&HBF 

&X10111111 



195 

&HC3 

&X11000011 



199 

&HC7 

&X11000111 


192 

&HC0 

&X11000000 



196 

&HC4 

&X11000100 


(S 

r ■■■ 
■■■■ 
■■!■ 
■m 

■■■■ 

■■BU 

BJCJ" 

mi m 
fi ■■ 

mmmr 

i ■■■ 


200 

&HC8 

&X11001000 




202 

&HCA 

&X11001010 



203 

&HCB 

&X11001011 



&HCC 

&X11001100 



&HCD 

&X11001101 



&HCE 

&X11001110 



207 

&HCF 

&X11001111 



208 

&HD0 

&X11010000 
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209 210 211 212 

& H D1 &HD2 &HD3 &HD4 

&X11010001 &X11010010 &X11010011 &X11010100 



21 3 214 215 216 

&H °5 &HD6 &HD7 &HD8 

&X11010101 &X11010110 &X11010111 &X11011000 



217 218 219 220 

&HD9 &HDA &H06 &HDC 

&X11011001 &X11011010 &X11011011 &X11011100 



225 

&HE1 

&X11100001 


226 

&HE2 

&X11100010 


227 

&HE3 

&X11100011 


228 

&HE4 

&X11100100 
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229 

&HE5 

&X11100101 


230 

&HE6 

&X11100110 


231 

&HE7 

&X11100111 


232 

&HE8 

&X11101000 



233 

&HE9 

&X11101001 



234 

&HEA 

&X11101010 



235 

&HEB 

&X11101011 



236 

&HEC 

&X11101100 



237 

&HED 

&X11101101 



&HEE 

&X11101110 


PJ 


|B 

l =: 





íS 

bmzm 

3 

■: 


239 

&HEF 

&X11101111 



240 

&HF0 

&X11110000 






241 

&HF1 

&X11110001 


242 

&HF2 

&X11110010 


243 

&HF3 

&X11110011 


244 

&HF4 

&X11110100 


FF 


>■■■■■■ 



245 

&HF5 

&X11110101 



246 

&HF6 

&X11110110 




rr 



247 

&HF7 

&X11110111 



248 

&HF8 

&X11111000 
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&HF9 

&X11111001 



250 

&HFA 

&X11111010 



251 

&HFB 

&X11111011 



252 

&HFC 

&X11111100 



253 

&HFD 

&X11111101 


jtbít. 

ÜB 


254 

&HFE 

&X11111110 



255 

&HFF 

&X11111111 
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Códigos expansibles: posiciones y valores 
implícitos 



B □ BB □ BD DEOES BBB 


|Fj 

ii i 

N/A |j NU 

JifimEQCQ EQ HM CQ C3 EEHESUMffH^M 

Hn 

PIPÍ 

ÉuSEyUCSCQ uy ^3 DDmXUlNÉ 

li 

iin 

N/Á 

N/A | N/A J N/A | N/A jj N/A | N/A I N/A 1 N/A | N/A | N/A jj N/A 

N/A 

Kil 


N/A 




-a agj 

N/A | N/A 


Código 

expansible 

Asignación implícita 

Carácter 

Valor ASCII 

0(128) 

0 

&30 

1(129) 

1 

&31 

2(130) 

2 

&32 

3(131) 

3 

&33 

4(132) 

4 

&34 

5(133) 

5 

&35 

6(134) 

6 

&36 

7(135) 

7 

&37 

8(136) 

8 

&38 

9(137) 

9 

&39 

10(138) 


&2E 

11(139) 

[RETURN] 

&0D 

12(140) 

RUN“ [RETURN] 

&52&55&4E&22&0D 

Nota. Los caracteres expansibles 13 a 31 (141 a 159) no tie- 

nen asignada ninguna cadena de expansión. Su expansión 

se puede definir con la orden KEY de BASIC, y se los pue- 

de asignar a teclas concretas con la orden KEY DEF. 
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Números de las teclas y los joysticks 


TJTJ-LmTJTJTJTJTrUTJTJTJTJT_rLriJTJTJlJT_n_r^^ 
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Parte 6: Sonidos 

Notas y periodos de tono 

La tabla siguiente da los valores recomendados para el parámetro <periodo de tono) 
correspondientes a los tonos y semitonos de las ocho octavas que puede producir el 
CPC664. 

Las frecuencias generadas no coinciden exactamente con las requeridas porque el (pe¬ 
riodo de tono) tiene que ser un número entero. El ‘error relativo’ es el cociente: 

frecuencia requerida-frecuencia generada 
frecuencia requerida 

expresado en porcentaje. 


NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

16.352 

3822 

-0.007% 

C# DO# 

17.324 

3608 

+0.007% 

D RE 

18.354 

3405 

-0.007% 

DW RE# 

19.445 

3214 

-0.004% 

E MI 

20.602 

3034 

+0.009% 

F FA 

21.827 

2863 

-0.016% 

F# FA# 

23.125 

2703 

+0.009% Octava -4 

G SOL 

24.500 

2551 

-0.002% 

G# SOL# 

25.957 

2408 

+0.005% 

A LA 

27.500 

2273 

+0.012% 

A# LA# 

29.135 

2145 

-0.008% 

B SI 

30.868 

2025 

+0.011% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

32.703 

1911 

-0.007% 

C# DO# 

34.648 

1804 

+0.007% 

D RE 

36.708 

1703 

+0.022% 

D# RE# 

38.891 

1607 

-0.004% 

E MI 

41.203 

1517 

+0.009% 

F FA 

43.654 

1432 

+0.019% 

F# FA# 

46.249 

1351 

-0.028% Octava -3 

G SOL 

48.999 

1276 

+0.037% 

G# SOL# 

51.913 

1204 

+0.005% 

A LA 

55.000 

1136 

-0.032% 

A# LA# 

58.270 

1073 

+0.039% 

E SI 

61.735 

1012 

-0.038% 
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NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

65.406 

956 

+0.046% 

C# DO# 

69.296 

902 

+0.007% 

D RE 

73.416 

851 

-0.037% 

D# RE# 

77.782 

804 

+0.058% 

E MI 

82.407 

758 

-0.057% 

F FA 

87.307 

716 

+0.019% 

F# FA# 

92.499 

676 

+0.046% Octava -2 

G SOL 

97.999 

638 

+0.037% 

G# SOL# 

103.826 

602 

+0.005% 

A LA 

110.000 

568 

-0.032% 

A# LA# 

116.541 

536 

-0.055% 

B SI 

123.471 

506 

-0.038% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

130.813 

478 

+0.046% 

C# DO# 

138.591 

451 

+0.007% 

D RE 

146.832 

426 

+0.081% 

D# RE# 

155.564 

402 

+0.058% 

E MI 

164.814 

379 

-0.057% 

F FA 

174.614 

358 

+0.019% 

F# FA# 

184.997 

338 

+0.046% Octava -1 

G SOL 

195.998 

319 

+0.037% 

G# SOL# 

207.652 

301 

+0.005% 

A LA 

220.000 

284 

-0.032% 

A# LA# 

233.082 

268 

-0.055% 

B SI 

246.942 

253 

-0.038% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

261.626 

239 

+0.046% DO media 

C# DO# 

277.183 

225 

-0.215% 

D RE 

293.665 

213 

+0,081% 

D# RE# 

311.127 

201 

+0.058% 

E MI 

329.628 

190 

+0.206% 

F FA 

349.228 

179 

+ 0.019% 

F# FA# 

369.994 

169 

+0.046% Octava 0 

G SOL 

391.995 

159 

-0.277% 

G# SOL# 

415.305 

150 

-0.328% 

A LA 

440.000 

142 

-0.032% LA 

A# LA# 

466.164 

134 

-0.055% internacional 

B SI 

493.883 

127 

+0.356% 
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NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

523.251 

119 

-0.374% 

C# DO# 

554.365 

113 

+0.229% 

D RE 

587.330 

106 

-0.390% 

D# RE# 

622.254 

100 

-0.441% 

E MI 

659.255 

95 

+0.206% 

F FA 

693.457 

89 

-0.543% 

F# FA# 

739.989 

84 

-0.548% Octava 

6 SOL 

783.991 

80 

+0.350% 

6# SOL# 

830.609 

75 

-0.328% 

A LA 

880.000 

71 

-0.032% 

A# LA# 

932.328 

67 

-0.055% 

E SI 

987.767 

63 

-0.435% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

1046.502 

60 

+0.462% 

C# DO# 

1103.731 

56 

-0.662% 

D RE 

1174.659 

53 

-0.390% 

D# RE# 

1244.508 

50 

-0.441% 

E MI 

1318.510 

47 

-0.855% 

F FA 

1396.913 

45 

+0.574% 

F# FA# 

1479.978 

42 

-0.548% Octava 

6 SOL 

1567.982 

40 

+0.350% 

6# SOL# 

1661.219 

38 

+0.992% 

A LA 

1760.000 

36 

+1.357% 

A# LA# 

1864.655 

34 

+1.417% 

B SI 

1975.533 

32 

+1.134% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR RELATIVO 

C DO 

2093.004 

30 

+0.462% 

C# DO# 

2217.641 

28 

-0.662% 

D RE 

2349.318 

27 

+1.469% 

D# RE# 

2489.016 

25 

-0.441% 

E MI 

2637.021 

24 

+1.246% 

F FA 

2793.826 

22 

-1.685% 

F# FA# 

2959.955 

21 

-0.548% Octava 1 

6 SOL 

3135.963 

20 

+0.350% 

6# SOL# 

3322.438 

19 

+0.992% 

A LA 

3520.000 

18 

+1.357% 

A# LA# 

3729.310 

17 

+1.417% 

B SI 

3951.066 

16 

+1.134% 
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Estas frecuencias han sido calculadas a partir de la correspondiente a la nota LA inter¬ 
nacional mediante la siguiente fórmula: 

FRECUENCIA=440*(2t(OCTAVA+<(N-10)/12))) 

PERIODO=ROUND(62500/FRECUENCIA) 

donde N es 1 para DO, 2 para DO#, etc. 


Parte 7: Mensajes de error de BASIC 

1 Unexpected NEXT 

Se ha encontrado un NEXT que no corresponde a ningún FOR, o bien la variable men¬ 
cionada tras NEXT no coincide con la de FOR. 

2 Syntax errar 

BASIC no puede entender la línea porque algo en ella no se ajusta a las reglas de sinta¬ 
xis del lenguaje. 

3 Unexpected RETURN 

Si ha encontrado una orden RETURN fuera de una subrutina. 

4 DATA exhausted 

Una orden READ ha intentado leer más datos de los incluidos en líneas DATA. 

5 Impraper argument 

Este es un error no específico. Puede haber algo incorrecto en el argumento de una fun¬ 
ción o en un parámetro de una orden. 
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ó Over-flow 


El resultado de una operación aritmética ha sobrepasado los márgenes aceptables. Si 
ha ocurrido en un número en punto flotante, el resultado ha sido mayor que 1.7E+38 
(aprox.). También puede haber ocurrido al intentar convertir un número en punto flo¬ 
tante en un entero con signo de 16 bits. 


7 Memory -ful 1 

El programa actual o sus variables ocupan demasido espacio en la memoria, el anida- 
miento de la estructura de control es demasiado profundo (demasiadas órdenes GO- 
SUB, WHILE o FOR anidadas). 

La orden MEMORY provoca este error si se intenta situar el límite de la memoria acce¬ 
sible a BASIC demasiado bajo, o tan alto que sea imposible. Obsérvese que los ficheros 
abiertos tienen un tampón dedicado a ellos, lo que puede restringir los valores correctos 

de MEMORY. 


8 Line does not exist 

Se ha mencionado un número de línea que no existe en el programa. 


9 Subscript aut □+ range 

Uno de los subíndices mencionados en una lista es demasiado pequeño o demasiado 
grande. 


10 Array already dimensioned 

Una de las listas declaradas en una orden DIM ya ha sido dimensionada antes. 

11 División by zero 

División por cero, que puede ocurrir en la división de números reales, en la división 
entera, en la operación MOD y en la exponenciación. 

12 Inval id direct command 

Se ha intentado dar como orden directa una orden que sólo es válida si va precedida 
de un número de línea. 
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13 Type mismatch 

Incongruencia de tipos. Un dato es literal cuando tenía que ser numérico, o viceversa, 
o se ha introducido un dato no numérico en READ o INPUT. 

14 String space -full 

Se han creado demasiadas cadenas literales y ya no hay espacio disponible para más, 
incluso después de reorganizar la memoria. 

15 String too long 

Una cadena literal consta de más de 255 caracteres. Puede haber sido generada por con¬ 
catenación de otras. 

16 String expression too complex 

Expresión literal demasiado compleja. Las expresiones literales pueden generar valores 
intermedios; cuando el número de estos valores excede de un límite razonable, se pro¬ 
duce este error. 

17 Cannot CONTinue 

No se puede reanudar la ejecución del programa con CONT. Obsérvese que COIMT rea¬ 
nuda el programa después de una instrucción STOP, de [ESC11ESC] o de un error, 
pero a condición de que no se modifique el programa durante la pausa. 

18 Unknown usen -function 

Se ha invocado una FN sin la correspondiente DEF FN. 

19 RESUME missing 

Se ha llegado al final del programa mientras se ejecutaba una rutina de gestión de erro¬ 
res (esto es, una rutina invocada por ON ERROR GOTO). 


20 Unexpected RESUME 

RESUME sólo es válida en una rutina de gestión de errores (esto es, en una rutina invo¬ 
cada por ON ERROR GOTO). 
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21 Direct command -found 

Al cargar un fichero se ha encontrado una línea sin número de línea. 

22 Operand missing 

BASIC ha encontrado una expresión incompleta. 

23 Line too long 

BASIC ha convertido a su forma interna una línea y ésta ha resultado ser demasiado 
larga. 


24 EOF met 

Se ha intentado leer más allá del final del fichero de entrada. 


25 File type error 

El fichero que se ha leído no es del tipo adecuado. OPENIN sólo puede abrir ficheros 
de texto ASCII. Análogamente, LOAD, RUN, etc., solamente pueden acceder a fiche- 
ras creados por SAVE. 


26 NEXT missing 


BASIC ha encontrado un FOR al que no corresponde ningún NEXT. La línea mencio¬ 
nada tras el mensaje es aquella en la que se encuentra el FOR. 


27 File already open 

Se ha ejecutado una orden OPENIN u OPENOUT sin previamente cerrar el fichero que 
estaba abierto. 


28 Unknown command 

BASIC no encuentra un comando externo que corresponda a lo que se ha escrito tras !. 
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29 WEND missing 

BASIC ha encontrado un WHILE al que no corresponde ningún WEND. 

30 Unexpected WEND 

Se ha encontrado un WEND que no corresponde a ningún WHILE, o bien el WEND 
no concuerda con el WHILE del bucle actual. 

31 File not open 

Véase la sección ‘Errores de disco’. 

32 Broken in 

Véase la sección ‘Errores de disco’. 


Errores de disco en AMSDOS 


Hay varios errores que pueden producirse con ocasión del manejo de ficheros en disco. 
BASIC da a todos ellos el número de ERR 32; no obstante, DERR contiene informa¬ 
ción más específica cuando se detecta ese número de error. Los valores de DERR tienen 
el siguiente significado: 


Error de 
AMSDOS 

Valor de 
DERR 

Causa del error 

0 

0o 22 

Se ha pulsado [ESC]. 

14 

142 (128+14) 

El canal no se encuentra en situación correcta. 

15 

143 (128 + 15) 

Se ha alcanzado el final físico del fichero. 

16 

144 (128+16) 

Orden incorrecta: generalmente nombre de fichero in¬ 
correcto. 

17 

145 (128+17) 

El fichero ya existe. 

18 

146 (128+18) 

El fichero no existe. 

19 

147 (128+19) 

El directorio está lleno. 

20 

148 (128 + 20) 

El disco está lleno. 

21 

149 (128+21) 

Se ha cambiado el disco cuando había ficheros abiertos 
en él. 

22 

150 (128 + 22) 

El fichero es de ‘sólo lectura’. 

26 

154 (128+26) 

Se ha llegado al final de los datos grabados en el fi¬ 
chero (final lógico del fichero). 
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Si AMSDOS ya ha informado de un error, el bit 7 de DERR está a 1 y por lo tanto 
todos los valores de DERR están desplazados en 128 unidades. 

Otros valores generados por DERR proceden del controlador del disco. Su significado 
se analiza bit a bit. El bit 6 siempre está a 1. El bit 7 indica si AMSDOS ha informado 
del error (según se ha explicado antes). El significado de los bits es el siguiente: 


Bit 

Significado 

0 

Falta marca de direcciones. 

1 

No escribible. El disco está protegido. 

2 

Faltan datos. No se puede encontrar el sector. 

3 

No hay disco en la unidad, unidad no preparada. 

4 

Error de sincronización (velocidad). 

5 

Error de datos. Error CRC (comprobación de redundancia cíclica). 

6 

Siempre a 1, para indicar que es un error detectado por el controlador del disco. 

7 

A 1 si AMSDOS ya ha informado del error. 


ERR también puede dar el valor 31 si se ha intentado el acceso sin haber ningún fichero 
abierto. La forma recomendable de utilizar ERR y DERR consiste en incluir una ins¬ 
trucción OIM ERROR GOTO que invoque una pequeña subrutina en la cual se com¬ 
pruebe si ERR es 31 o 32; si es 32, se puede examinar DERR para obtener mayor infor¬ 
mación sobre la naturaleza del error. Por ejemplo: 


10 ON ERROR GOTO 1000 
20 OPENOUT "-f ichero.asc" 

30 WRITE #9,"prueba-datos" 

40 CLOSEOUT 
50 END 

1000 erramsdo5= (DERR AND k7F) : REM mascara para bit 7 
1010 IF ERR<31 THEN END 

1020 IF ERR=31 THEN PRINT "Esta seguro de que ha tecleado 
la linea 20 correctamente?":END 
1030 IF erramsdos=20 THEN PRINT "Disco lleno; ponga otro 
disco de datos.":END 

1040 IF erramsdos=8tX01001000 THEN PRINT "Inserte un disco 
en la unidad y luego pulse una tec1 a.":WHILE INKEY*= 
"":WEND:RESUME 
1050 END 
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Parte 8: Palabras reservadas de BASIC 


A continuación damos la lista de las palabras reservadas para el BASIC de AMSTRAD 
CPC6128, las cuales, por consiguiente, no pueden ser utilizadas como nombres de 
variables. 

ABS, AFTER, AND, ASC, ATN, AUTO 
BIN$, BORDER 

CALL, CAT, CHAIN, CHR*, CINT, CLEAR, CLG, CLOSEIN, 
CLOSEOUT, CLS, CONT, COPYCHRÍ, COS, CREAL, CURSOR 

DATA, DEC$, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, 
DERR, DI, DIM, DRAW, DRAWR 

EDIT, El, ELSE, END, ENT, ENV, EOF, ERASE, ERL, ERR, 
ERROR, EVERY, EXP 

FILL, FIX, FN, FOR, FRAME, FRE 

GOSUB, GOTO, GRAPHICS 

HEX$, HIMEM 

IF, INK, INKEY, INKEY*, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFT*, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, LOG10, 
LOWER* 

MASK, MAX, MEMORY, MERGE, MID$, MIN, MOD, MODE, MOVE, 
MOVER 

NEXT, NEW, NOT 

ON, ON BREAR, ON ERROR GOTO 0, ON SQ, OPENIN, OPENOUT, 

OR, ORIGIN, OUT 

PAPER, PEER, PEN, PI, PLOT, PLOTR, PORE, POS, PRINT 
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RAD, RAMDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, 
RESTORE, RESUME, RETURN, RIGHT*, RND, ROUND, RUN 

SAVE, SGN, SIN, SOUND, SPACE*, SPC, SPEED, SQ, SQR, STEP, 
STOP, STR*, STRING*, SWAP, SYMBOL 

TAB, TAG, TAGOFF, TAN, TEST, TESTR, THEN, TIME, TO, 

TROFF, TRON 

UNT, UPPERÍ, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 

XOR, XPOS 

YPOS 

ZONE 
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Parte 9: Plantillas 

Pantalla de texto; modo 0 (20 columnas) 
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Pantalla de texto; modo 1 (40 columnas) 
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Pantalla de texto; modo 2 (80 columnas) 
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Envolventes de sonido/música 



<*» N *- O r- N n 


S 
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Parte 10: Conexiones 


Zócalos de entradas y salidas del CPC6128 



t 

CINTA 


t 

ESTEREO 


JOYSTICK 


Zócalo del joystick 


VISTO POR DETRAS 



Patilla 1 ARRIBA 
Patilla 2 ABAJO 
Patilla 3 IZQUIERDA 
Patilla 4 DERECHA 
Patilla 5 N/C 

I 


Patilla 6 DISPARO 2 
Patilla 7 DISPARO 1 
Patilla 8 MASA 2 
Patilla 9 MASA 
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Zócalo del monitor 



Patilla 1 ROJO 
Patilla 2 VERDE 
Patilla 3 AZUL 


Patilla 4 SINO 
Patilla 5 MASA 
Patilla 6 LUM 


Zócalo estéreo 


DERECHO 


CZZ3= 

MASA 



IZQUIERDO 



IZQUIERDO 

DERECHO 

MASA 


Patilla 1 CANAL IZQUIERDO 
Patilla 2 CANAL DERECHO 
Patilla 3 MASA 


Zócalo de cinta 


VISTO POR DETRAS 



Patilla 1 CONTROL REMOTO ! Patilla 4 ENTRADA DE DATOS 
Patilla 2 MASA i Patilla 5 SALIDA DE DATOS 

Patilla 3 CONTROL REMOTO 
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Zócalo de expansión 

VISTO POR DETRAS 

49 47 45 43 41 39 37 3S 33 31 29 27 25 23 21 19 17 15 13 11 9 

t —ii—1 1 —ii—ii—n~n m m r~i,m c—11—u——inmmmca 

'—c snzarcjg c-u i— >1 — i isi i — ¡ i— 1 1— i can —i —n— »i — i i — 11 —i c_ 1 1— » i -vj 

50 48 48 44 42 40 38 36 34 32 30 28 26 24 22 20 18 16 14 12 10 


• 

Patilla l SONIDO 

Patilla 18 AO 

Patilla 35 INT 

Patilla 2 MASA 

Patilla 19 D7 

Patilla 36 NM1 

Patilla 3 Al 5 

Patilla 20 D6 

Patilla 37 BUSR2 

Patilla 4 A14 

Patilla 21 D5 

Patilla 38 BÜSAK 

Patilla 5 Al3 

Patilla 22 D4 

Patilla 39 READY 

Patilla 6 A12 

Patilla 23 D3 

Patilla 40 BUS RESET 

Patilla 7 All 

Patilla 24 D2 

Patilla 41 RESET 

Patilla 8 A10 

Patilla 25 DI 

Patilla 42 ROMEN 

Patilla 9 A9 

Patilla 26 DO 

Patilla 43 ROMDIS 

Patilla 10 A8 

Patilla 27 +5v 

Patilla 44 RAMRD 

Patilla 11 A7 

Patilla 28 MREQ 

Patilla 45 RAMDIS 

Patilla 12 A6 

Patilla 29 Mi 

Patilla 46 CURSOR 

Patilla 13 A5 

Patilla 30 RFSH 

Patilla 47 LAPIZ OPTICO 

Patilla 14 A4 

Patilla 31 lORQ 

Patilla 48 EXP 

Patilla 15 A3 

Patilla 32 RD 

Patilla 49 MASA 

Patilla 16 A2 

Patilla 17 Al 

Patilla 33 WR 

Patilla 34 HALT 

Patilla 50 


Zócalo para la segunda unidad de disco 


VISTO POR DETRAS 


2 4 6 


8 10 12 14 16 18 20 22 24 26 28 30 32 



1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 


Patilla 1 READY 

Patilla 18 MASA 

Patilla 2 MASA 

Patilla 19 MOTOR ON 

Patilla 3 SIDE 1 SELECT 

Patilla 20 MASA 

Patilla 4 MASA 

Patilla 21 N/C 

Patilla 5 READ DATA 

Patilla 22 MASA 

Patilla 6 MASA 

Patilla 23 DRIVE SELECT 1 

Patilla 7 WRITE PROTECT 

Patilla 24 MASA 

Patilla 8 MASA 

Patilla 25 N/C 

Patilla 9 TRACK 0 

Patilla 26 MASA 

Patilla 10 MASA 

Patilla 27 INDEX 

Patilla 11 WRITE GATE 

Patilla 28 MASA 

Patilla 12 MASA 

Patilla 29 N/C 

Patilla 13 WRITE DATA 

Patilla 30 MASA 

Patilla 14 MASA 

Patilla 31 N/C 

Patilla 15 STEP 

Patilla 32 MASA 

Patilla 16 MASA 

Patilla 33 N/C 

Patilla 17 DIRECTION SELECT 

Patilla 34 MASA 


31 
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Zócalo para la impresora 


VISTO POR DETRAS 


17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 



35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 


Patilla 1 STROBE 

Patilla 19 MASA 

Patilla 2 DO 

Patilla 20 MASA 

Patilla 3 DI 

Patilla 21 MASA 

Patilla 4 D2 

Patilla 22 MASA 

Patilla 5 D3 

Patilla 23 MASA 

Patilla 6 D4 

Patilla 24 MASA 

Patilla 7 D5 

Patilla 25 MASA 

Patilla 8 D6 

Patilla 26 MASA 

Patilla 9 

Patilla 27 MASA 

Patilla 11 BUSY 

Patilla 28 MASA 

Patilla 14 MASA 

Patilla 33 MASA 

Patilla 16 MASA 

Todas las demás: N/C 


Parte 10: Impresoras 

Interfaz 


AI CPC6128 se le puede conectar cualquier impresora que tenga ‘interfaz paralelo tipo 
Centronics’ de 7 bits. 

El cable es fácil de construir, pues no tiene que realizar más que una conexión biunívo- 
ca entre el zócalo IMPRESORA del ordenador y el conector de la impresora. Nótese 
que en la salida del ordenador hay dos terminales menos que en el conector de la impre¬ 
sora, con objeto de permitir la utilización de un conector estándar para circuito 
impreso. 

Los detalles de las patillas del interfaz están ilustrados en la parte 9 de este capítulo. 

El cable debe conectar el terminal 1 del ordenador con el 1 de la impresora, el 19 del 
ordenador con el 19 de la impresora, etc. Sin embargo, los terminales 18 y 36 de la im¬ 
presora no deben ser conectados al ordenador. Obsérvese que aunque los terminales 
de la fila superior del zócalo IMPRESORA del ordenador están numerados del 1 al 
17, la numeración de la fila inferior empieza en el 19, no en el 18, para mantener la 
correspondencia con el conector de la impresora. 

El ordenador utiliza la señal BUS Y (patilla 11) para sincronizar con la impresora y es¬ 
pera cuando ésta está en OFF-LINE (fuera de línea). 
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No es necesario enviar a la impresora códigos de preparación; la salida del ordenador 
se dirige a la impresora especificando el canal #8. 

La salida PRINTER está diseñada para conectar impresoras de matriz de puntos de 
bajo costo. No obstante, con el interfaz adecuado, se le pueden conectar impresoras 
de margarita, plotters e impresoras de color por chorro de tinta. La compatibilidad está 
asegurada por el interfaz paralelo. 

La programación incorporada a la impresora AMSTRAD DMP1 facilita el funciona¬ 
miento en modo gráfico así como los volcados de pantalla. 


Configuración de la impresora 


Se ha incluido una función que permite que los caracteres que aparecen en la pantalla 
y pueden ser generados por la AMSTRAD DMP1 se escriban en el papel tal como se 
los ve en la pantalla, aun cuando los códigos que tienen en el ordenador no coincidan 
con los que tienen en la impresora. La mayor parte de estos signos sólo está disponible 
cuando en la impresora se ha seleccionado un idioma distinto del inglés. Por ejemplo: 

PRINT CHR$(EíA0) 

A (en la pantalla) 

PRINT #8,CHR$(&A0) 

A (taibiín en la ¡apresara) 

Esto ocurre así a pesar de que el código del acento circunflejo en la impresora es &5E. 
Dicho de otra forma, la programación de la impresora ha reconocido el &A0 como uno 
de los códigos que tiene en su tabla de traducción y lo ha convertido en &5E para escri¬ 
birlo con la misma forma que en la pantalla. El código &5E produce el acento circunfle¬ 
jo cualquiera que sea el idioma seleccionado (no se puede decir lo mismo de los demás 
códigos que hay en la tabla de traducción). Los restantes caracteres de la tabla son los 
siguientes: 


CHR$ 

Carácter 
en la 
pantalla 

Traducción 
en la 

impresora 

Signo escrito en el papel 

Reino 

Unido 

EE.UU 

Francia 

Alemania 

España 

&A0 

A 

&5E 

A 

A 

A 

A 

A 

&A2 


&7B 

t 

t 

t 

t 


&A3 

Pt 

&23 

£ 

# 

# 

# 

R 

&A6 

§ • 

&40 

t 

t 

t 

§ 

t 

&AE 

¿ 

&5D 

t 

t 

t 

t 

¿ 

&AF 

¡ 

&5B 

t 

t 

t 

t 

i 


t Véase la página 18 del manual de la DMP1. 
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La tabla anterior es un extracto de las traducciones implícitas, que se pueden modificar 
a voluntad. Véase el manual del firmware (SOFT 968) para más detalles. 


Parte 12: Joysticks 


El ordenador puede funcionar con uno o dos joysticks. La máquima los considera co¬ 
mo parte del teclado, y por consiguiente su estado se puede determinar con INKEY e 
INKEY$. 

Nótese que en la mayor parte de los casos, el botón principal de disparo del joystick 
es interpretado como ‘DISP.2’ por el CPC6128. 

Las funciones JOY(Q) y JOY(1) permiten inspeccionar directamente los dos joysticks. 
Cada una de estas funciones genera un resultado, interpretable bit a bit, que informa 
de la situación de los interruptores del joystick en el momento en que se realizó la últi¬ 
ma comprobación del teclado. 

La tabla siguiente indica los valores generados por los dos joysticks. Además de los 
números de la función JOY, se incluyen los números que se deben utilizar en instruc¬ 
ciones que llevan como parámetro los números de las teclas (tales como INKEY y KEY 
DEF). 


Estado 

Función JOY 

Números de tecla 


Bit que 

Valor 

Primer 

Segundo 

Tecla 


está a 1 

generado 

joystick 

joystick 

equivalente 

Arriba 

0 

1 

72 

48 

‘6’ 

Abajo 

1 

2 

73 

49 

‘5’ 

Izquierda 

2 

4 

74 

50 

‘R’ 

Derecha 

3 

8 

75 

51 

t'J’) 

Disparo 2 

4 

16 

76 

52 

‘G’ 

Disparo 1 

5 

32 

77 

53 

‘F’ 


Nótese que cuando se generan los valores correspondientes al segundo joystick, el orde¬ 
nador no puede saber si esos valores han sido generados por el joystick o por las teclas 
equivalentes (última columna de la tabla anterior). Esto representa que se puede utilizar 
el teclado como sustituto del segundo joystick. 
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Parte 13: Organización de los discos 


El BIOS maneja tres formatos de disco diferentes: formato SISTEMA, formato SOLO 
DATOS y formato IBM. AMSDOS detecta automáticamente el formato cada vez que 
accede a un disco en el que no haya ficheros abiertos. Para permitir esta detección auto¬ 
mática, en cada formato los sectores se numeran de forma diferente. 

Los discos de 3 pulgadas tienen dos caras utilizables, aunque no al mismo tiempo. Cada 
cara pu ‘e haber sido inicializada con un formato distinto. 


Común a todos los formatos: 

Una sola c a (las dos caras del disco de 3 pulgadas se tratan por separado). 
Capacidad física ■ e cada sector: 512 bytes. 

40 pistas, numeradas del 0 al 39. 

Tamaño de bloque de M: 1024 bytes. 

Directorio de 64 reseñas. 


Formato SISTEMA 


9 sectores por pista, numerados del &41 al &49. 

2 pistas reservadas. 

Es el formato principal, ya que CP/M sólo puede ser cargado con un disco que tenga 
este formato. CP/M 2.2 exige además que se inserte en la unidad un disco con formato 
de sistema para los arranques iniciales. Las pistas reservadas se utilizan de la siguiente 
forma: 



CP/M 2.2 

CP/M Plus 

Pista 0 sector &41: 

sector de carga automática 

sector de carga automática para CP/M Plus 

Pista 0 sector &42: 

sector de configuración 


Pista 0 sectores &43 a &47: 

no utilizadas 

) 

Pista 0 sectores &48 y &49: 
Pista 1 sectores &41 a &49: 

j CPC y BDOS 

¡ no utilizadas 


Nótese que el formato COMERCIAL es una versión especial del formato SISTEMA 
en la que no se graban las pistas reservadas. Éste es el formato en que se graban los 
programas que se venden en el comercio. 
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Formato SOLO DATOS 


9 sectores por pista numerados del &C1 al &C9. 

Ninguna pista reservada. 

Este formato está diseñado para su desarrollo en el futuro. No se recomienda utilizarlo 
con CP/M 2.2, pues no permite cargar el sistema operativo. No obstante, si sólo se va 
a utilizar el disco con AMSDOS o CP/M Plus, se lo puede inicializar con este formato 
para disponer de más espacio. 


Formato IBM (sólo en CP/M 2.2) 

8 sectores numerados del &1 al &8. 

1 pista reservada. 

Este formato coincide con el formato de una sola cara utilizado por el CP/M del IBM 
PC. El 6128 puede leer y escribir en discos de este formato, pero no puede crearlos ni 
copiarlos. 


Parte 14: Ampliaciones del sistema 
residentes (RSX) 

En el capítulo 5, al hablar de AMSDOS, ya hemos mencionado las ‘órdenes externas’. 
En esencia, una orden externa es una forma de ampliar el repertorio de BASIC aña¬ 
diéndole instrucciones nuevas, todas las cuales van precedidas del signo !. Las rutinas 
que llevan a cabo las acciones de las órdenes externas de AMSDOS están grabadas en 
la ROM; el ordenador realiza todas las operaciones necesarias para hacer accesibles es¬ 
tas órdenes cuando entra en BASIC. 

Pero también es posible incorporar nuevas órdenes externas (cuando BASIC está ya 
activo) cargando las instrucciones de código de máquina adecuadas en la RAM. Tales 
órdenes externas son las ‘ampliaciones del sistema residentes’ (RSX) y actúan exacta¬ 
mente igual que las basadas en la ROM. Las RSX han de ser cargadas desde el disco 
(o la cinta) cada vez que se entra en BASIC. La aplicación habitual de la RSX es el 
control de periféricos ‘inteligentes’, tales como lapiceros ópticos o sintetizadores de 
voz. 

En el capítulo 8 se explica cómo utilizar las RSX para acceder al segundo banco de 64K 
de memoria del 6128. 
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Parte 15: Memoria 


El CPC6128 dispone de 128K de RAM y 48K de ROM. Esta memoria es utilizable por 
BASIC 1.1 según se indica en la figura siguiente. El primer banco de 64K de RAM está 
dividido nominalmente en cuatro bloques (de 16K cada uno), numerados del 0 al 3. 
La pantalla utiliza el bloque 3; la zona superior del bloque 2 está dedicada a las varia¬ 
bles de sistema, según se muestra en la figura. 


PRIMER BANCO SEGUNDO BANCO 

DE 64K DE RAM DE 64K DE RAM 


BL0 °UE3 | 
e LO QUE2 | 

Blq QUe i | 
Bl -aau Eo I 





Nota 1. Depende de las ROM externas conectadas. Es &A6FC cuando no hay ninguna 


Mapa de memoria para BASIC 1.1 


Los caracteres definidos por el usuario están inicialmente inmediatamente por encima 
de HIMEM. Este valor se puede modificar mediante una orden MEMORY; además 
se reduce en 4K automáticamente para crear un tampón cada vez que se abre un fiche¬ 
ro. El número de caracteres definibles por el usuario (controlado por la orden 
SYMBOL AFTER de BASIC) sólo se puede modificar si HIMEM no ha variado desde 
la última vez que aquél fue establecido (o si en esa ocasión se estableció en cero, con 
SYMBOL AFTER 256). Cuando se entra en BASIC, el número de caracteres definibles 
por el usuario se establece como si se hubiera ejecutado la orden SYMBOL AFTER 
240. 

Por consiguiente, antes de cambiar permanentemente HIMEM, es prudente reducir a 
cero la zona de memoria dedicada a los caracteres definibles; después se modifica Hi¬ 
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MEM y finalmente se restablece la zona de caracteres definibles al tamaño deseado. 
De esta manera los siguientes programas podrán ejecutar nuevas órdenes SYMBOL 
AFTER sin problemas. 

El siguiente ejemplo ilustra este método, aplicado a la carga de una RSX: 

100 SYMBOL AFTER 256 ’ anular memoria para caracteres 
definibles por el ususario 
110 di rece ionrsx=HIMEM-longitudrsx 
120 MEMORY di receionrsx-l 
130 LOAD "codigrsx",direccionrsx 
140 CALL direccionrsx ’ inicializar rsx 
150 SYMBOL AFTER 140 ’ restablecer espacio para carac 
teres definibles 






Mapa de memoria con las RSX cargadas en la posición recomendada 


Otras entradas y salidas 


La mayor parte de las direcciones de puertas de entrada/salida (E/S) está reservada por 
el ordenador. En particular, las direcciones inferiores a &7FFF no se deben utilizar 
nunca. 

Está previsto que la parte de la dirección representada por A0-A7 refleje el tipo de dis¬ 
positivo externo de E/S, y que las líneas de dirección A8 y A9 puedan ser decodificadas 
para seleccionar registros dentro del dispositivo de E/S. De las restantes líneas, sólo 
A10 puede ser decodificada (a nivel ‘bajo’); las líneas All a A15 están todas a nivel 
‘alto’. Así, los registros de los dispositivos se pueden direccionar como &F8??,&F9??, 
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&FA?? y &FB??, donde ?? puede estar entre DC y FF para los interfaces de comunica¬ 
ción y entre EO y FE para otros periféricos. 

Nótese que se deben utilizar instrucciones del Z80 que pongan el registro B en la mitad 
superior del bus de direcciones (A15-A8). 


Memorias ROM adicionales 

El sistema operativo está preparado para seleccionar ROMs adicionales en lugar de 
parte de la ROM interna. La lógica de gestión de direcciones y de selección de bancos 
estará en un módulo conectado al bus de expansión, pero todas las señales necesarias 
están en el corrector de expansión. 


Parte 16: Emulador de consola de CP/M 
Plus 

En la parte 1 de este capítulo hemos dado una tabla de caracteres de control con la 
descripción de sus efectos. Tales efectos son los que se producen cuando se envían los 
caracteres a la pantalla de texto desde BASIC o desde CP/M 2.2. Estas acciones han 
sido elegidas con los criterios de sencillez y de conseguir que ilustren algunas de las fun¬ 
ciones disponibles en el bloque de ‘Text VDU’ (pantalla de texto) del firmware. Estas 
funciones son peculiares de los ordenadores Amstrad, y por lo tanto los programas de¬ 
ben ser amoldados a ellas. 

En el contexto de las aplicaciones comerciales que se programan para CP/M Plus, es 
normal esperar que los ordenadores dispongan de ciertas funciones estándar de control 
de la pantalla de texto, de modo que los programas sean fácilmente “trasladables” de 
una máquina a otra. La implementación de CP/M Plus en el CPC6128 incluye un emu¬ 
lador de consola que proporciona funciones de control similares a las del terminal Ze- 
nith Z19/Z29. El procedimiento de instalación de los programas escritos para CP/M 
Plus incluirá normalmente una opción para terminales de este tipo. 

Entre las funciones incorporadas en el emulador de consola de CP/M Plus se encuen¬ 
tran muchas de las antes ofrecidas en el grupo ‘Text VDU’ del firmware, aunque con 
diferentes códigos de control. Pero en CP/M Plus se dispone de un número considera¬ 
ble de operaciones nuevas y más complejas. 

Los caracteres del margen de &20 a &FF se exhiben en la pantalla en la posición actual 
del cursor. Además, si el cursor no está en la última columna, se lo desplaza una posi¬ 
ción a la derecha; si el cursor está en la última columna y está activada la continuidad 
de las líneas, se lo coloca en la primera columna de la línea siguiente, desplazando la 
pantalla hacia arriba si es necesario. 
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Los caracteres del margen de &00 a &1F se interpretan como códigos de control, según 
la siguiente tabla: 


607 BEL 

608 BS 

&0A LF 
&0D CR 


Produce un pitido. 

Retroceso del cursor. Mueve el cursor una posición hacia la izquierda. 
Si el cursor está en la primera columna (pero no en la primera fila) y 
está activada la continuidad de las líneas, se lo coloca en la última co¬ 
lumna de la fila anterior. 

Avance de línea. Se baja el cursor a la línea siguiente, desplazando la 
pantalla hacia arriba si es necesario. 

Retorno del carro. Lleva el cursor a la primera columna de la fila 
actual. 


Se ignoran todos los demás códigos de control. 


El emulador de consola reconoce las siguientes secuencias de ‘escape’. Todos los demás 
caracteres son exhibidos en la pantalla (con el consiguiente avance del cursor) aunque 
vayan precedidos del código de escape. Gracias a esta característica es posible enviar 
a la pantalla los caracteres visibles correspondientes a los códigos de control del &00 
al &1F. (Obsérvese, no obstante, que en muchas aplicaciones se reinterpreta el código 
de control &09 (TAB) para que signifique cierto número de espacios; en tales casos la 
secuencia [ESC][TAB] no visualizará el carácter &09.) 


[ESC]0 Desactiva la línea indicadora de estado. Los mensajes del sistema 

de disco aparecen en la pantalla principal, en la cual puede utilizar 
también la última línea. 

[ESC]1 Activa la línea de estado. Los mensajes del sistema de disco apare¬ 

cen en la última línea de la pantalla. 

[ESC]2<n> Selecciona un juego de caracteres (véase la parte 16 de este capítu¬ 
lo). <n> es el parámetro selector de idioma, que se enmascara con 
&07. La acción consiste en intercambiar ciertas matrices de caracte¬ 
res del margen de &20 a &7F con otras del margen de &80 a &FF; 
es muy similar a la que se realiza con impresoras que disponen de 
varios juegos de caracteres seleccionables por programa. 

<n>=0 EE.UU. 

<n> = l Francia 
<n>=2 Alemania 
<n>=3 Reino Unido 
<n>=4 Dinamarca 
<n>=5 Suecia 
<n>=6 Italia 
<n>=7 España 
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[ESC]3<m> 

[ESC]A 

[ESC]B 

[ESC]C 

[ESC]D 

[ESC]E 

[ESC]H 

[ESC]I 

[ESC]J 

[ESC]K 

[ESC]L 

[ESC]M 

[ESC]N 

[ESC]Y<l><c> 

[ESC]b<pc> 


Selecciona el modo de pantalla. <m>=modo+&20. El valor se en¬ 
mascara con &3 para limitarlo al margen de 0 a 2. El modo 3 se igno¬ 
ra. Se borra la pantalla, pero no se modifica la posición del cursor. 

Cursor arriba. Si ya está en la primera línea, ningún efecto. 

Cursor abajo. Si ya está en la última línea, ningún efecto. 

Cursor a la derecha. Si ya está en la última columna, ningún efecto. 

Cursor a la izquierda. Si ya está en la primera columna, ningún 
efecto. 

Borrar página. La posición del cursor no se modifica. Esta secuencia 
borra la página entera, aunque se haya seleccionado el modo 
de 24x80. (Hay otros códigos de escape que sólo afectan al área 
24x80 cuando está seleccionado este modo.) 

Cursor a la posición inicial. Lleva el cursor a la primera columna de 
la primera fila. 

Retroceso de línea. Sube el cursor a la línea anterior, desplazando 
la pantalla hacia abajo si es necesario. 

Borrar hasta el final de la página (incluido el carácter que está en la 
posición del cursor). No se modifica la posición del cursor. 

Borrar hasta el final de la línea (incluido el carácter que está en la 
posición del cursor). No se modifica la posición del cursor. 

Insertar línea. La línea en la que está el cursor y todas las siguientes 
se desplazan hacia abajo; se borra la línea del cursor; la posición de 
éste no se modifica. 

Suprimir línea. La línea en la que está el cursor se pierde; todas las 
siguientes se desplazan hacia arriba; se borra la última línea; la posi¬ 
ción del cursor no se modifica. 

Suprimir carácter. Todos los caracteres que están a la derecha del 
cursor, en su misma línea, se desplazan una posición hacia la izquier¬ 
da. El carácter de la última columna queda en blanco. 

Lleva el cursor a la posición especificada. Si esa posición sobrepasa 
algún borde de la pantalla, el cursor se queda en el borde correspon¬ 
diente. <1> = línea+&20; <c>=columna+&20. El extremo superior 
izquierdo es línea 0, columna 0. 

Establece color de pluma. Afecta a todos los caracteres presentes en 
la pantalla. El parámetro de color, <pc>, se enmascara con &3F y 
luego se lo interpreta como tres números de 2 bits que especifican 
las intensidades de los tres colores primarios: los bits 0 y 1 para el 
azul, los bits 2 y 3 para el rojo y los bits 4 y 5 para el verde. El 6128 
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proporciona tres niveles de intensidad, que se especifican de la siguiente forma: 


[ESC]c<pc> 

[ESC]d 

[ESC]e 


[ESC]f 

[ESC]j 

[ESC]k 

[ESC]i 

[ESC]o 

[ESC]p 

[ESC]q 

[ESC]r 

[ESC]u 

[ESC]v 

[ESC]w 

[ESC]x 


[ESC] y 


CPC6128 

Intensidad nula 

Intensidad media 

Intensidad máxima 

Bits para 
cada color 

00 (binario) 

01 o 10 (binario) 

11 (binario) 


Establece color de fondo. Afecta tanto al fondo como al borde de la 
pantalla. Los colores se especifican como en la secuencia anterior. 

Borrar desde el principio de la página (hasta la posición del cursor in¬ 
clusive). No se modifica la posición del cursor. 

Activa el cursor. Para evitar el molesto parpadeo que de otra forma 
se produciría, el cursor está inhibido durante la escritura normal del 
texto y sólo se lo activa una décima de segundo después de escribir 
el último carácter. 

Inhibe el cursor. 

Almacenar la posición del cursor. 

Restablecer la posición del cursor almacenada por [ESC]j. 

Borrar línea. No se modifica la posición del cursor. 

Borrar desde el principio de la línea (hasta la posición del cursor in¬ 
clusive). No se modifica la posición del cursor. 

Activar el modo de imagen invertida (‘video inverso’). Los caracteres 
visibles se escriben con los colores de fondo y pluma invertidos. 

Desactivar el modo de imagen invertida. 

Activar el modo de subrayado. (No disponible en el CPC6128.) 

Desactivar el modo de subrayado. (No disponible en el CPC6128.) 

Activa la continuidad de las líneas. Cuando los caracteres enviados 
a la pantalla sobrepasan la última columna de una línea, siguen apare¬ 
ciendo al principio de la línea siguiente. 

Desactiva la continuidad de las líneas. Cuando los caracteres enviados 
a la pantalla sobrepasan la última columna de una línea, se los ignora. 

Activa el modo 24x80. Algunos programas requieren la pantalla es¬ 
tándar de 24 filas por 80 columnas. Esta secuencia selecciona esa pan¬ 
talla, independientemente de cuál sea el tamaño total de la pantalla 
(que depende de la máquina), del país y de si la línea de estado está 
activada o desactivada. Se borra la pantalla. 

Desactiva el modo 24x80. Se borra la pantalla. 
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Parte 17: Juego de caracteres de CP/M Plus 


En la parte 10 de este capítulo hemos descrito una tabla de traducción para impresoras. 
El fin de esta tabla es convertir algunos caracteres del juego de BASIC y CP/M 2.2 
a una forma tal que puedan ser escritos por la impresora cuando en ella se ha realizado 
cierta selección de idioma. Esta función está limitada por el hecho de que pocos de los 
caracteres internacionales de las impresoras aparecen en el juego de caracteres de 
BASIC. 

Aunque este método sigue funcionando en CP/M Plus, se lo ha ampliado hasta permi¬ 
tir una correspondencia casi absoluta entre los caracteres visibles en la pantalla y los 
de la impresora. (El carácter visible que falta es el signo monetario sueco, que debería 
figurar en lugar de “$’.) La distribución de caracteres por idiomas es la siguiente: 


EE. UU. 

Francia 

Alemania 

Reino Unido 

Dinamarca 

Suecia 

Italia 

España 


23 24 40 5B 5C 5D 5E 60 7B 7C 7D 7E 


■ ■■ 
aii 
■ ■ 


iiilli 


o e i 


Juego internacional de caracteres de CP/M Plus 


Para adaptar la máquina a un idioma determinado se debe hacer lo siguiente: 

1. Seleccionar el idioma en la impresora (generalmente mediante microconmutadores 
basculantes, aunque en algunas impresoras la selección se puede realizar por progra¬ 
ma enviándole códigos de control). 
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2. Seleccionar el juego de caracteres deseado, bien mediante la orden transitoria 
LANGUAGE <n> 
bien enviando la secuencia 
[ESC]2<n> 

al emulador de consola. 

En la práctica, esta inicialización se suele programar en el procedimiento PROFI- 
LE.SUB mediante las funciones LANGUAGE y SETKEYS. El CP/M Plus se suminis¬ 
tra con el juego de caracteres número 0 (EE.UU.) preseleccionado, ya que en la tecla 
del ‘3’ está grabado el signo “#’. 


Juegos de caracteres de 7 bits 


Por útil que sea esta posibilidad de seleccionar juegos de caracteres, debemos resaltar 
que los caracteres estándar (EE.UU.) reemplazados por caracteres de otros idiomas de¬ 
jan de ser visualizables. Esto es inevitable cuando se manejan juegos de caracteres de 
7 bits. Prácticamente todos los programas disponibles para CP/M Plus (incluidos casi 
todos los programas de ayuda y los procesadores de texto) trabajan con un juego de 
caracteres de 7 bits. En el Reino Unido se acepta que el signo 1 #’ desaparezca para ser 
sustituido por el *£’, no sólo en proceso de textos, donde es deseable, sino también en 
los listados de programas, v.g. LIST £8, donde no lo es. Con el tiempo el usuario llega 
a habituarse a hacer mentalmente la transformación de un signo a otro. 

Pero en otros idiomas los cambios son más perturbadores. Los signos nuevos reempla¬ 
zan caracteres tan necesarios como la barra vertical y los corchetes. A pesar de la mejo¬ 
ra de la legibilidad de los textos gracias a los acentos, en las situaciones en las que el 
programa requiere la barra y los corchetes (por ejemplo, DIR [ALL] la legibilidad que¬ 
da notablemente reducida. Lo mismo se puede decir de la facilidad de escritura, si se 
han cambiado algunas teclas para adaptarlas al nuevo juego de caracteres. 

Recuerde que los programas trabajan con códigos ASCII y son totalmente indiferentes 
a la forma que puedan tener los caracteres en la pantalla. Lo que ocurre con los juegos 
de caracteres de 7 bits es, sencillamente, que no hay códigos suficientes para cubrir to¬ 
das las necesidades. 
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Juegos de caracteres de 8 bits 


El juego de caracteres de BASIC tiene 256 símbolos diferentes; los códigos del 128 al 
255 (&80 a &FF) representan diversos símbolos gráficos de aplicación en programas de 
juegos e informática doméstica. En CP/M Plus también hay 256 caracteres, pero los 
128 últimos son distintos de los de BASIC; están diseñados para aplicaciones comercia¬ 
les y para la generación de juegos específicos por idiomas: 

01 23456789ABCDEF 

o üllliHIllllRlIll 8 

1 9 

2 A 

3 ItiMMXiillMlkl b 

4 eflBCDEFSHIJKLMNO c 

s BfüSfMHilHlBliai D 

6 tiMAiliklikllii e 

7 iiiSiailiiiíiítS F 

Caracteres del 0 al 127 (&00 a &7F) 


Juego de caracteres estándar (EE.UU.) de CP/M Plus 

Los programas capaces de trabajar con juegos de caracteres de 8 bits disponen de este 
juego completo y podrán, no sólo dibujar recuadros, sino también acceder a los carac¬ 
teres especiales de todos los idiomas, sin encontrar los problemas que describíamos en 
la sección anterior. 

En la actualidad hay muy pocos programas preparados para trabajar con juegos de ca¬ 
racteres de 8 bits. Los caracteres de los márgenes de 0 a 31 y de 128 a 255 tendrán el 
aspecto que se muestra en la figura anterior solamente en la pantalla. En la impresora 
serán distintos, pues los fabricantes de impresoras tienen sus propias ideas sobre el dise¬ 
ño de juegos de caracteres. 


01 23456789ABCDEF 

llllililKtllilii 

■ •■■■¡■■¡•■■■(¡¡■•sí 

iilfllllllkiiRll 
illltiliililllil 
iittttfiSfltiltMH 
IIIMlillllilIlli 
liliillliiillRvi 
iiiiiiiliiiüiii 

Caracteres del 128 al 255 (&80 a &FF) 
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Capítulo 8 

Más sobre el gestor de bancos de memoria 


Utilización por BASIC del segundo banco de 64K 
de RAM. 

Temas tratados: 

* Almacenamiento de imágenes de pantalla 

* Pseudoficheros 

El mapa de memoria de BASIC 1.1 que vimos en el capítulo anterior, parte 14, muestra 
que BASIC no utiliza 64 de los 128K de RAM. BASIC y el firmware residen en una 
ROM; si a ésta se añade la ROM del sistema de disco, resulta que la memoria utilizable 
desde BASIC es 112K en total (64K de RAM y 48K de ROM). 

Cada sección de 16K es un ‘bloque’; un grupo de 4 bloques (64K) es lo que se denomina 
‘banco’. La técnica de selección de bloques se llama, pues, ‘conmutación de bancos’. 

El microprocesador Z80 no puede direccionar, en un momento dado, más de 64K. Por 
esa razón el sistema operativo está preparado para utilizar la ROM del firmware en lu¬ 
gar del bloque 0 de RAM, o las ROM de BASIC o del sistema de disco en lugar del 
bloque 3 de RAM. Esta conmutación se realiza automáticamente cada vez que se deben 
ejecutar rutinas de BASIC o del firmware. 

Pues bien, la selección de bancos de RAM no es más que una generalización de este 
método. La conmutación la realiza un programa escrito en ensamblador. 

En la cara 1 del juego de discos del sistema se incluye el programa BANKMAN.BAS. 
Este programa se ejecuta desde BASIC; su objeto es instalar la RSX que proporciona 
las órdenes externas de gestión de bancos. 

Una aplicación del segundo banco de 64K es el almacenamiento temporal de imágenes 
de pantalla; por ejemplo, en un programa ‘diseñador de pantallas’ que almacene varias 
pantallas diferentes, o un videojuego que tenga preparadas varias pantallas para mos¬ 
trarlas inmediatamente cuando las necesite. 

Otra aplicación del segundo banco de 64K es la ampliación del espacio dedicado a las 
variables; este espacio adicional se puede considerar como ampliación del espacio reser¬ 
vado a las matrices literales o como “disco de RAM” (‘Ramdisc’). 
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Parte 1: Almacenamiento de imágenes de 
pantalla 


El gestor de bancos puede desconectar’ el bloque 1 de RAM y poner en su lugar uno 
cualquiera de los cuatro bloques de 16K de que consta el segundo banco. La figura si¬ 
guiente muestra en qué consiste esta conmutación. Observe que los cuatro bloques del 
segundo banco están todos en el mismo grupo de direcciones, de &4000 a &7FFF. El 
contenido del bloque 1 (normalmente ocupado por instrucciones de BASIC) no se pier¬ 
de, sino que es restaurado cuando el gestor de bancos termina su trabajo. Además de 
las cinco conmutaciones de bancos ilustradas en la figura, hay otras tres posibles, pero 
sólo se las utiliza en CP/M. 



Conmutación de bancos por hardware 


El gestor de bancos dispone de dos órdenes externas con las que se pueden transferir 
pantallas completas de un bloque a otro; estas órdenes conmutan automáticamente los 
bloques 4 a 7 cuando es necesario y dejan restablecido el bloque 1. 


8/2 


Más sobre el gestor de bancos de memoria 



La orden 


i SCREENSWAP, «sección de putalla), Kiuero de pantalla), <m«ero de pantalla) 

intercambia el contenido de dos bloques, mientras que 

! SCREENCOPY, «sección de pantalla)!, (nuiero de pantalla destina), 

{limero de pantalla fuente) 


copia el contenido de un bloque en otro. 

El parámetro opcional <sección de pantalla) hace que la transferencia de información 
se realice por tramos de 1/64 de pantalla (256 bytes del total de 16K). Así pues, el pará¬ 
metro puede tener cualquier valor comprendido entre 0 y 63. Este método de operación 
es útil cuando se necesita mezclar alguna otra tarea con la de transferencia de pantallas. 
El tiempo de ejecución de un intercambio de pantallas es de aproximadamente 150/300 
segundos (150 unidades de la variable TIME). 

Los (números de pantalla) son números cualesquiera del margen de 1 a 5. (La pantalla 1 
es la visible.) Las operaciones de copia e intercambio en las que interviene la pantalla 1 
son mucho más rápidas que las otras. Tenga cuidado con el efecto de ‘desplazamiento 
vertical por hardware’, que ya puede haber experimentado al trabajar con volcados de 
pantalla. Se debe procurar que todas las imágenes de pantalla se construyan (y visuali¬ 
cen) con la pantalla 1 en la misma posición de hardware. La posición más sencilla es 
la establecida por una orden MODE. 


Ejemplos de transferencias de pantallas 

Cargue y ejecute el programa BAIMKMAN con la orden 
RUN "BANKMAN" 

Escriba 

MODE 1 

con lo que se borra la pantalla. Ahora escriba 
’ Esta es la pantalla original 

!SCREENCOPY,3,1 'Pantalla original va a la memoria 3 
CLS 
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La pantalla se ha vuelto a borrar. Escriba ahora 

’ Esta es la pantalla intermedia 

iSCREENCOPY,2,1 'Pantalla intermedia va a memoria 2 
! SCREENSWAP,2, 3 'Intercambia memorias 2 y 3 

iSCREENCOPY,1,3 ’Recupera pantalla intermedia desde memoria 3 
• SCREENSWAP, 2,3 'Recupera pantalla original desde memoria 2 

Al final del capítulo 9 damos un completo programa ‘diseñador de pantallas’ que utili¬ 
za las funciones de transferencia de pantallas proporcionadas por el gestor de bancos. 


Parte 2: Ficheros en RAM 


Considerado como ‘RAMdisc’, el segundo banco de 64K de RAM se puede organizar 
en forma de fichero, con cierto número de registros de longitud fija. La longitud de 
registro puede ser de entre 0 y 255 bytes, si bien 2 bytes es el mínimo recomendable. 
Una vez establecida la ‘longitud de registro’, cada registro es accesible para operaciones 
de escritura y lectura por su ‘número de registro’. Es perfectamente posible escribir en 
un fichero de RAM con una longitud y luego leer con otra distinta. 

Nota. El fichero de RAM sólo puede contener datos; no está prevista su utilización para almace¬ 
nar instrucciones de programa. 

Al igual que en los sistemas de ficheros de acceso aleatorio en disco, aquí existe también 
el concepto de número de registro actual’. Este número se mantiene siempre actualiza¬ 
do, y es útil, por consiguiente, cuando se recorre el fichero avanzando automáticamen¬ 
te de cada registro al siguiente. 

La orden 

!BANKOPEN,<longitud de registro) 

establece la longitud de registro e inicializa el ‘número de registro actual’ (a 0), pero 

no borra memoria. 

La orden 

! BANKWRITE, (Kcodigo generado), {expresión literal>1,Insiero de registro)] 


escribe la <expresión literal) en el fichero. El <número de registro) especifica en qué 
registro se debe escribir. Si se omite este parámetro, se escribe en el número de registro 
actual. Finalmente, se actualiza este número (sumándole 1). 
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Si la <expresión literal) no llena el registro, los caracteres antiguos sobre los que no 
se ha escrito seguirán estando en el registro. Si la {expresión literal) es demasiado lar¬ 
ga, se ignoran los caracteres restantes para no ‘corromper’ el registro siguiente. 

El {código generado) es una variable entera a través de la cual se puede conocer, al 
concluir la operación, el número de registro en el que se ha escrito (si la escritura se 
ha realizado con éxito) o un número de error (negativo) si la escritura ha fracasado: 

-1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el 
final de los 64K) 

—2 indica un error de conmutación de bancos (no debería ocurrir nunca) 
Ejemplos: 

!BANKOPEN,10 

1BANKWRITE, @r-%, "123 pruebas" ,0 
! BANKWRITE , @r-%, 


La orden 

! BANKREAD, @<co4igo generido), @<variable literal)!, (muero de registro)] 


lee un registro y asigna su contenido a la (variable literal). 

El (número de registro) especifica en qué registro se debe leer. Si se omite este paráme¬ 
tro, se lee en el número de registro actual. Finalmente, se actualiza este número (su¬ 
mándole 1). 

Si el contenido del registro no llena completamente la (variable literal), los caracteres 
antiguos sobre los que no se ha escrito seguirán estando en la (variable literal). Si el 
contenido del registro es más largo que la (variable literal), se ignoran los caracteres 
restantes, ya que no es posible aumentar la longitud de la variable mediante una orden 
externa. 

El (código generado) es una variable entera a través de la cual se puede conocer, al 
concluir la operación, el número de registro en el que se ha leído (si la lectura se ha 
realizado con éxito) o un número de error (negativo) si la lectura ha fracasado: 

-1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el 
final de los 64K) 

-2 indica un error de conmutación de bancos (no debería ocurrir nunca) 
Ejemplo: 

!BANKREAD,@r%,i*,0 
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Búsquedas 


Se puede recorrer el fichero en busca de un dato determinado. La orden 

! BANKFIND, Stcodigo generado), tcadena buscada)!, <nuiero de registro inicial) 

[,<nuiero de registro final)]] 

examina los registros especificados. El <número de registro inicial) especifica el regis¬ 
tro a partir del cual debe comenzar la búsqueda. Si se omite este parámetro, se toma 
por defecto el número de registros actual. 

La búsqueda continúa, a saltos de (longitud de registro), hasta que se encuentra la ca¬ 
dena o hasta que se agotan los 64K. 

Si se especifica el (número de registro final), la búsqueda termina cuando se ha exami¬ 
nado ese registro (a menos que se haya encontrado la cadena antes). 

Si la búsqueda concluye con éxito, el ‘número de registro actual’ apunta al registro 
donde se ha encontrado la cadena; si no, sigue teniendo el valor anterior. 

El (código generado) es una variable entera que contiene, al terminar la operación, 
información sobre cómo se ha desarrollado ésta. Si ha concluido con éxito, contiene 
el número de registro en el que encontró la cadena; si no, contiene un número negativo 
que es un código de error: 

-1 Fin del fichero. El (número de registro inicial) sobrepasa el final de los 64K, 
o bien es mayor que el (número de registro final). 

—2 Error de conmutación de bancos (no debería ocurrir nunca). 

—3 No se ha encontrado la cadena buscada. 

La (cadena buscada) puede contener símbolos comodín, que en este caso son caracte¬ 
res número 0, chr$(0). El número de caracteres que intervienen en las comparaciones 
es igual a la (longitud de registro) o a la longitud de la (cadena buscada), el más corto 
de los dos. 

Ejemplos: 

!BANKFIND,@r%,"123 pru",0 
!BANKFIND,@r%,f$,100,200 


Cuidado con los errores 

Los errores obvios, tales como poner demasiados parámetros, son detectados e identifi¬ 
cados como Bad Command. Sin embargo, el mecanismo de las órdenes externas no 
permite detectar errores del tipo Type mismatch, por lo que el usuario debe cerciorar¬ 
se de que está utilizando parámetros de la forma correcta. 
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El siguiente programa utiliza las órdenes de RAMdisc para examinar una base de datos 
que contiene permutaciones de letras formadas con palabras de 7 letras. Busca concor¬ 
dancias y permite utilizar símbolos comodín. 

Por ejemplo, las permutaciones de la palabra CENTRAL que concuerdan con 
7NACE7? (puede omitir los dos últimos símbolos 7) son TNACERL, TNACELR, 
RNACETL, RNACELT, LNACETR y LNACERT. 

Se tarda bastante en crear la base de datos, pero es que 64K es mucha memoria. 


10 ’REVUELTO DE LETRAS, por ROLAND PERRY 
20 ’ copyright (c) AMSOFT 1985 
30 ’ 

40 ’No olvide RUN "BANKMAN" antes de ejecutar este pr 


ograma 


50 • ************* 

60 • 

70 MODE 2 

80 DEFINT a-z 

90 r%=0:¡BANK0PEN,7 

100 INPUT"Que palabra de 7 letras quiere revolver 

110 IF LEN<s$)<>7 THEN 100 

120 PRINT"Por favor, espere un rato." 

130 LOCATE 1,5:PRINT’Sigo trabajando:" 


140 

FOR cl=l 

TO 

7 







150 

FOR c2=l 

TO 

7 







160 

IF c2=cl 

THEN 370 







170 

FOR c3=l 

TO 

7 







180 

IF c3=c2 

OR 

c3=c 1 

THEN 360 





190 

FOR c4=l 

TO 

7 







200 

IF c4=c3 

OR 

c4=c2 

OR 

c4=c 1 

THEN 350 



210 

FOR c5=l 

TO 

"/ 







220 

IF c5=c4 

OR 

c5=c3 

OR 

c5=c2 

OR 

c5=c 1 

THEN 340 

230 

FOR c6=l 

TO 

7 







240 

IF c6=c5 

OR 

c6=c4 

OR 

c6=c3 

OR 

c6=c2 

OR 

c6=c 1 


330 









250 

FOR c7=l 

TO 

7 







260 

IF c7=c6 

OR 

n 

NJ 

ii 

n 

O! 

OR 

c7=c4 

OR 

c7=c3 

OR 

c7=c2 


7=cl THEN 320 


" ;s$ 


THEN 


OR c 


270 o$=MID*<s$,cl,l)+MID$Cs$,c2,1)+MIDÍ(s$,c3,1)+ MID$ 
(s$,c4,1)+MID$(s*,c5,l)+MID$(s*,c6,1)+MID$(s*,c7, 
1) 

280 LOCATE 18,5:PRINT x i oí 
290 ¡BANKWRITE,7%,o$ 

300 IF r%<0 THEN STOP 
310 x=x+l 
320 NEXT c7 
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330 NEXT c6 
340 NEXT c5 
350 NEXT c4 
360 NEXT c3 
370 NEXT c2 
380 NEXT el 
390 ultimoreg=r% 

400 REM ahora vamos a buscar 
410 r%=0:gí=SPACEÍ(7) 

420 PRINT:INPUT"Que subpalabra quiere buscar (puede e 
scribir ? como símbolo comodín) ",mí 
430 mí=LEFTí(mí,7) 

440 FOR x=l TO LEN(mí) 

450 IF MIDÍ(mí,x,1)="?"THEN MIDí(mí,x,1)=CHRÍ(0) 

460 NEXT 

470 !BANKFIND,mí,0,u11i moreg 
480 IF r%<0 THEN 420 
490 !BANKREAD, tX ,gí 
500 PRINT gí, 

510 !BANKFIND,^%,mí,r%+1,u1timoreg 
520 GOTO 480 
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Capítulo 9 
Cuando usted guste 


En este capítulo vamos a dar un repaso a ciertas cuestiones básicas de 
informática en general y del CPC6128 en particular. No es imprescindi¬ 
ble leer este capítulo para trabajar con el ordenador, pero puede ayudar¬ 
le a entender algo de lo que está ocurriendo en su interior. 


Parte 1: En términos generales ... 

¡Fulmina el bicho! 

Aun cuando lo único que le interese de su CPC6128 sea disfrutar de los sofisticados 
juegos de ordenador que se venden en las tiendas, es posible que se pregunte qué tiene 
la máquina dentro, es decir, qué es eso del hardware. 

Hardware es lo que usted puede coger y llevarse bajo el brazo (es un decir): la caja gris 
donde está el teclado, el monitor, los cables, etc. Más en general, todo lo que no sea 
específicamente software : programas, manuales e información grabada en cinta o en 
disco. 

Ciertos aspectos del funcionamiento del ordenador están estrechamente ligados al 
hardware; por ejemplo, la imagen de color que usted puede ver en la pantalla. En cam¬ 
bio, es responsabilidad del software controlar el hardware para producir los caracteres 
y dibujos deseados. 

Es el hardware el que dirige el haz de electrones a la superficie electroluminiscente de 
que está recubierto el interior del tubo del televisor; el software aporta la organización 
y la inteligencia para decir al hardware cómo y cuándo debe hacerlo. Añade además 
el control de los tiempos y de las secuencias de acciones para que usted pueda ver la 
nave espacial despegando, o para algo tan mundano como que aparezca una letra en 
la pantalla cada vez que usted pulsa una tecla. 
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¿Por qué es un ordenador mejor que otro? 


El hardware sin el software es completamente inútil, y viceversa. El ordenador empieza 
a servir para algo cuando hardware y software se ponen de acuerdo para llevar a cabo 
sus cometidos. Hay algunas consideraciones básicas que se pueden tener en cuenta para 
valorar la calidad tanto de uno como del otro. 

Los puntos de referencia generalmente aceptados para los ordenadores personales son: 


1. Resolución de la pantalla: tamaño del menor elemento discemible 

El concepto de resolución es una mezcla de diversos factores: número de colores dispo¬ 
nibles para el programador, número de áreas discemibles en la pantalla (pixels) y nú¬ 
mero de caracteres de texto que caben en ella. 

Usted puede comprobar que su CPC6128 es superior a este respecto a los otros ordena¬ 
dores de su nivel de precio. 


2. El intérprete de BASIC 

Prácticamente todos los ordenadores domésticos incluyen un intérprete de BASIC que 
permite al usuario crear programas con los que controlar el hardware. El lenguaje de 
programación que viene con la máquina, BASIC, no es más que un programa, pero 
un programa extremadamente complejo que ha evolucionado a lo largo de los años, 
desde que se ‘inventó’ el BASIC en los Estados Unidos. El ‘Beginners’ All-purpose 
Symbolic Instruction Code’ (código de instrucciones simbólicas de uso general para 
principiantes) es el lenguaje de ordenador más ampliamente utilizado en el mundo ente¬ 
ro; como todos los lenguajes, tiene sus dialectos locales. 

La versión utilizada en el CPC6128 es una de las de mayor compatibilidad; puede eje¬ 
cutar programas escritos para funcionar bajo control del sistema operativo de disco 
CP/M. Es una versión muy rápida de BASIC, lo que quiere decir que realiza los cálcu¬ 
los muy deprisa. A usted quizá no le parezca demasiado impresionante que un ordena¬ 
dor tarde 0.05 segundos en multiplicar 3 por 5 y escribir la respuesta, mientras que otro 
ordenador tarda 0.075 segundos en hacer lo mismo. Pero cuando se trata de dibujar 
gráficos en la pantalla, tarea que puede requerir millares de cálculos repetitivos, la dife¬ 
rencia entre 0.05 y 0.075 segundos es decisiva. 

Usted oirá hablar frecuentemente de ‘códigos de máquina’. El código de máquina es 
una forma de suministrar instrucciones directamente al microprocesador. La velocidad 
de ejecución es entre 5 y 15 veces mayor en código de máquina que en BASIC, pero 
el tiempo que se tarda en escribir un programa puede ser hasta 50 veces mayor en códi¬ 
go de máquina que en BASIC. 
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El BASIC de Amstrad es de los más rápidos y completos que se pueden encontrar en 
ordenadores personales, e incorpora muchos recursos que ayudan al programador ex¬ 
perto a superar parte de la lentitud inherente a todos los lenguajes de alto nivel para 
producir efectos visuales y sonoros sorprendentemente dinámicos. 


3. Ampliabilidad 

Casi todos los ordenadores prestan atención a la necesidad de conectar periféricos tales 
como impresoras, joysticks y unidades de disco. Sin embargo, muchos de los más po¬ 
pulares ordenadores domésticos necesitan interfaces externas para que se les pueda co¬ 
nectar una simple impresora o un joystick. 

El comprador no siempre prevé las necesidades futuras, pero un ordenador que incor¬ 
pore un interfaz para impresora o un conector para joystick puede ser más barato a 
la larga que otro por el que tenga que pagar menos en el momento de la adquisición. 

El CPC6128 tiene incorporada una puerta de salida para impresora (tipo Centronics), 
una salida para segunda unidad de disco, una salida para cinta (con control de motor), 
un conector para dos joysticks, una salida de sonido estereofónico y una puerta de ex¬ 
pansión a la que se puede conectar un interfaz serie (modelo RS232C de Amstrad), un 
modem, un sintetizador de voz (modelo SSA2 de Amstrad), un lápiz óptico, etc. 

4. Sonidos 

Las características sonoras de un ordenador determinan si ‘suena a lata’ o si puede pro¬ 
ducir una imitación aceptable de un instrumento musical electrónico. 

El CPC6128 está dotado de un generador de sonido de 3 canales y 8 octavas, que puede 
dar una calidad musical muy aceptable y permite el control completo de las envolventes 
de tono y de volumen. Además, el sonido se puede obtener en una configuración este- 
reofónica, con canal izquierdo, canal derecho y canal común. 

Esto permite programar el sonido para coordinarlo con el movimiento de objetos por 
la pantalla. 

En último extremo, es usted quien tiene que decidir qué características le son más nece¬ 
sarias. Esperamos que las pruebe todas, para así aprovechar al máximo su ordenador. 


¿Por qué no puede? 

Sabiendo lo poderosa que es la tecnología actual, los usuarios se preguntan frecuente¬ 
mente por qué una máquina tan avanzada como el CPC6128 es incapaz de imitar las 
imágenes de un televisor de color. Por .ejemplo, ¿por qué no puede un ordenador mos¬ 
trar en la pantalla la imagen de una persona caminando con naturalidad? ¿Es que los 
ordenadores no son capaces de dar movimiento más que a unos burdos monigotes? 
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La respuesta es fácil, aunque compleja. No crea usted que la pantalla de su ordenador 
puede tener la misma riqueza de detalles que la de un televisor. Los televisores funcio¬ 
nan con una información ‘analógica’, que puede describir, con resolución casi ilimita¬ 
da, todos los grados posibles de intensidad de todos los colores del espectro visible. En 
términos informáticos, esto representa que la ‘memoria’ necesaria para almacenar una 
imagen de televisión es unas veinte veces mayor que la que se le dedica a un ordenador 
doméstico. 

Pero esto es sólo una parte del problema. Para dar movimiento a una imagen, hay que 
procesar toda esa información a gran velocidad (del orden de 50 veces por segundo). 
No es imposible, pero para ello se necesitan máquinas que cuestan unos cuantos miles 
de veces más que un ordenador doméstico, al menos en la actualidad. 

Hasta que el precio de la memoria de alta capacidad baje drásticamente (lo que ocurrirá 
algún día), los ordenadores pequeños tienen que arreglárselas con una memoria relati¬ 
vamente pequeña para controlar la pantalla, lo que representa menor resolución y mo¬ 
vimientos más espásticos. Optimizando el hardware y el softaware se puede paliar con¬ 
siderablemente estas limitaciones, pero de momento tendremos que seguir conformán¬ 
donos con imágenes torpes que ni siquiera llegan a parecerse a las de una película de 
dibujos animados de regular calidad. 


Ese teclado me suena ... 

¿Por qué no puedo sentarme ante el ordenador y escribir una sencilla página de texto? 

No se deje engañar por el hecho de que el ordenador se parece a una máquina de escri¬ 
bir electrónica con pantalla. La pantalla no es una hoja de papel electrónico: es una 
‘consola de órdenes’, expresión técnica que quiere decir que es una vía de comunicación 
entre el usuario y el lenguaje de programación que está en la memoria de la máquina. 

Mientras no se le mande otra cosa, el ordenador tratará de entender todo lo que se le 
comunique a través del teclado, pues supone que son instrucciones. Cuando usted pulsa 
[RETURN], el ordenador examina lo tecleado; si no es inteligible para el BASIC resi¬ 
dente, lo rechaza y emite el mensaje: 

Syntax error 

Ahora bien, puede ocurrir que el programa actualmente presente en la memoria sea un 
procesador de textos; en tal caso usted podrá escribir las palabras que desee, pulsar 
[RETURN] y seguir escribiendo a sus anchas, exactamente igual que si el ordenador 
fuera una máquina de escribir que utilizara papel electrónico. Pero, para que esto sea 
posible, antes se debe haber cargado en la memoria un programa de proceso de textos. 

El ordenador parece combinar aparatos que nos resultan familiares de tanto verlos en 
casa y en la oficina, como son la pantalla y el teclado. Pero recuerde que la similitud 
normalmente es superficial y que el ordenador es una combinación de elementos con 
personalidad propia. 
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¿Quién teme a la jerga? 


Como ocurre con todas las ramas especializadas de la industria, la informática ha desa¬ 
rrollado una jerga propia para facilitar la comunicación de conceptos complejos que 
de otra forma requerirían muchas palabras de lenguaje ordinario. Esto no ocurre sola¬ 
mente en el campo de la alta tecnología; todos hemos topado con barreras de este tipo 
levantadas por los profesionales de distintas áreas. 

En el caso de la informática, la confusión se debe más a la forma de utilizar las palabras 
que a las palabras en sí. (Y en castellano, a la imposibilidad de traducir ciertas palabras 
inglesas o a que no nos tomamos la molestia de intentarlo.) Casi todos los que llegan 
a familiarizarse con la terminología de la informática se esfuerzan por utilizar las pala¬ 
bras de la forma más directa posible, con objeto de minimizar la dificultad de la comu¬ 
nicación. Pero no crea que el lenguaje informático es lo mismo que el lenguaje literario; 
la informática no es literatura, sino una ciencia precisa; aparte la sintaxis, la estructura 
de la comunicación en informática es directa y sencilla, y de ningún modo confusa o 
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ambigua. Como no es literatura, la informática no ha necesitado desarrollar una asig¬ 
natura de ‘comentario de textos’ para analizar el significado exacto del significado de 
los programas. 

Independientemente de si el significado de un programa es obvio o no lo es, hay mu¬ 
chos aspectos de la programación que se pueden calificar de embarullados o de elegan¬ 
tes; ahora que se está asentando el revuelo inicial causado por la aparición de los mi¬ 
croordenadores, se está prestando mayor atención a los aspectos formales de la cons¬ 
trucción de programas. 

La informática está penetrando en las mentes de muchos jóvenes que valoran la preci¬ 
sión y la sencillez de las ideas y de la forma de comunicarlas. No hay demasiados niños 
que a los diez años sean ya abogados, pero sí muchos que a esa edad saben programar. 



Lo básico de BASIC 

Casi todos los ordenadores domésticos tiene incorporado el lenguaje BASIC, que hoy 
por hoy es lo más próximo al lenguaje ordinario. El nombre del lenguaje no implica 
ninguna limitación en cuanto a sus posibilidades; de hecho, se ha escrito programas 
extremadamente complejos y potentes en BASIC. 

Sin embargo, es evidente que el nombre ha atraído a muchos pricipiantes, que espera¬ 
ban encontrar un BASIC un buen punto de partida entre el laberinto de los lenguajes 
de programación; y esto ha contribuido en gran medida a su universalidad. 

BASIC es un lenguaje informático que interpreta un reducido número de órdenes, co¬ 
mo resultado de las cuales realiza operaciones con los datos según se va ejecutando el 
programa. A diferencia del vocabulario humano medio, que consta de entre 5000 y 
8000 palabras (además de la conjugación de los verbos, plurales, diminutivos, etc.), 
BASIC tiene que arreglárselas con sólo un par de centenares. Los programas escritos 
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en BASIC tienen que ajustarse a reglas fnuy estrictas en cuanto a la forma de utilizar 
esas palabras. La sintaxis es muy precisa; todo intento de comunicarse con el ordena¬ 
dor en lenguaje coloquial producirá el frío mensaje: 

Syntax error 

Esto no representa una limitación seria, ya que BASIC está diseñado para trabajar con 
números. Las palabras son básicamente una generalización de las operaciones matemá¬ 
ticas elementales (+, etc.). El concepto más importante que tienen que asimilar los 
principiantes es que el ordenador sólo puede manejar datos numéricos. Es decir, la in¬ 
formación que se envía a la CPU (unidad central de proceso) tiene que estar en forma 
numérica. 


Números 

Si empleáramos un ordenador para almacenar las obras completas de Shakespeare, en 
todo el sistema no encontraríamos ni una sola letra o palabra. Todo elemento de infor¬ 
mación debe ser convertido a número antes de que el ordenador pueda reconocerlo y 
manipularlo. 

BASIC interpreta las palabras como si fueran números; para procesarlas, el ordenador 
no dispone de más medios que la suma, la resta y la lógica de Boole, con la cual puede 
hacer comparaciones y seleccionar atributos; en otras palabras, averiguar si un número 
es menor o igual que otro, o realizar determinada tarea si un número cumple cierta 
condición.. 

A través del programa, el ordenador desmenuza todas las tareas en sus componentes 
más elementales. 
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Si todo esto le parece farragoso, está en lo cierto. Ha descubierto la primera y más im¬ 
portante verdad de la informática. Un ordenador es una herramienta que sirve para 
realizar tareas elementales y repetitivas a gran velocidad y con precisión absoluta. Así, 
BASIC interpreta las instrucciones que se le dan por medio del programa y las traduce 
al lenguaje que la CPU (unidad central de proceso) puede entender. La lógica del orde¬ 
nador sólo distingue dos estados: sí y no; en notación binaria, 1 y 0; en notación de 
Boole, ‘verdadero’ y ‘falso’. No hay estados intermedios del tipo ‘quizá’. 

El proceso de conmutación entre esos dos estados es la esencia del término ‘digital’. 
En la naturaleza casi todos los procesos evolucionan gradualmente de un estado ‘esta¬ 
ble’ a otro. En cambio, en la situación digital ideal, la transición de un estado a otro 
es instantánea. Sin embargo, las leyes de la física de semiconductores imponen un pe¬ 
queño retardo, el retardo de propagación, que es el causante del tiempo que tarda el 
ordenador en procesar la información antes de dar la respuesta. 

En todo caso, el ordenador tiene que esperar hasta que concluya una tarea antes de 
poder abordar la siguiente, lo que representa que siempre se le impone un retardo artifi¬ 
cial. El proceso digital es ‘blanco’ o ‘negro’, y las fases de transición por los diversos 
grados de ‘gris’ no tienen ninguna importancia. En cambio, los procesos analógicos se 
realizan precisamente a través de esas fases de ‘gris’. 

Si la respuesta final sólo puede ser 0 o 1, no es posible que el resultado sea ‘casi’ correc¬ 
to. El hecho de que los ordenadores cometan errores en ocasiones se debe a la limita¬ 
ción del tamaño de los números que pueden procesar; los números con demasiados dí¬ 
gitos tienen que ser ‘comprimidos’ para que encajen en el espacio disponible, lo que 
conduce a errores de redondeo. 

En un mundo en el que sólo existen los dígitos 0 y 1, ¿cómo se cuenta más allá de 1? 


Bits y bytes 


Estamos habituados a entender los números solamente cuando están expresados en el 
sistema decimal, en el que el punto de referencia es el número 10 y en el que se dispone 
de 10 dígitos (del 0 al 9) para representar los números. El sistema binario es conceptual¬ 
mente análogo al decimal, pero con sólo dos dígitos; las unidades con las que opera 
este sistema son los denominados bits (forma contraída de BInary digiT, dígito 
binario). 

La relación entre bits y números decimales es sencilla y vamos a estudiarla. 

Es habitual declarar el máximo número de bits que vamos a usar para representar los 
números, y añadir ceros por la izquierda para completar la expresión. Por ejemplo, el 
número decimal 7 se convierte en el binario 

00111 

en notación de 5 bits. 


9/8 


Cuando usted guste ... 




En el sistema binario, los dígitos se pueden considerar como indicadores dispuestos en 
columnas para especificar si una determinada potencia de 2 está presente o no lo está: 

2 o = 1 

2 1 = 2 = 2 = 2 ( 2 °) 

2 2 = 4 = 2x2 = 2(2 3 ) 

2 3 = 8 = 2 x 2 x 2 = 2(2 2 ) 

2 4 = 16 = 2 x 2 x 2 x 2 = 2(2 3 ) 

de modo que las columnas tienen el siguiente aspecto: 

2 4 2 3 2 2 2 1 2 o 

10 0 11 
(16 + 0+0+2+1) = 19 

Para abreviar la terminología al hablar de información binaria se introduce el concepto 
de ‘byte’, que es una sucesión de 8 bits. El mayor número que se puede representar 
con un byte es 11111111 (binario) o 255 (decimal). Si contamos también el 00000000, 
resulta un total de 256 números distintos, que son datos perfectamente válidos para el 
ordenador. 

Los ordenadores prefieren manejar los bits en grupos de 8. El número 256 es demasia¬ 
do pequeño, y por eso, para poder controlar la memoria, se utilizan dos bytes que se 
interpretan en forma matricial. Cada posición de memoria tiene una dirección vertical 
y otra horizontal, y entre las dos caracterizan sin ambigüedad la posición. Por ejemplo, 
la siguiente matriz 



0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 











1 











2 











3 











4 











5 




1 


1 





6 











7 











8 











9 












puede caracterizar hasta lOx 10 elementos de información utilizando números de direc¬ 
ción comprendidos entre 0 y 9. El elemento almacenado en la posición 3,5 es un ‘1’, 
lo mismo que el que está en la posición 5,5. 
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Análogamente, una matriz binaria de 256x256 puede caracterizar 65536 posiciones uti¬ 
lizando direcciones de 8 bits para los ejes vertical y horizontal de la matriz. Nuestros 
elementos iniciales, ‘0’ y ‘1’, han progresado hasta ser capaces de identificar 65536 ele¬ 
mentos diferentes. 

El siguiente nivel de abreviatura en terminología binaria es el K, que representa 1024 
bytes. El número 1024 es la potencia de 2 más próxima a nuestro ‘kilo’ (1000), y explica 
por qué se dice que un ordenador es de 64K cuando en realidad tiene una memoria de 
65536 bytes (64x1024). 

Afortunadamente, el intérprete de BASIC se encarga de todas estas conversiones. Es 
perfectamente posible llegar a ser un programador aunque no se domine el sistema bi¬ 
nario. No obstante, unos conocimientos del sistema binario pueden ayudar a desen¬ 
mascarar la magia de ciertos números clave que inevitablemente nos encontramos en 
informática. 

Vale la pena dedicar algún tiempo a entender el sistema binario y a comprender el por 
qué de números tales como el 255 o el 1024, pues parece evidente que estos números 
seguirán siendo el fundamento de la informática, al menos en el futuro previsible. La 
fiabilidad y sencillez que proporciona el sistema binario se seguirá imponiendo a la 
complejidad que implicaría cualquier otro sistema de numeración. 


Sin embargo ... 


Por sencilla y elegante que sea, la notación binaria induce a confusión a los humanos, 
porque no somos capaces de leer de un golpe de vista los números binarios. Hay algu¬ 
nos otros sistemas de numeración que los programadores utilizan con mayor facilidad. 
Un sistema muy utilizado en microordenadores es el hexadecimal (HEX). Su base es 
el número 16. La correspondencia entre dígitos decimales y hexadecimales es la 
siguiente: 

Decimal 

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

Hexadecimal 

0123456789AB C DE F 

El sistema hexadecimal puede dividir los 8 bits de un byte en dos bloques de 4 bits, 
ya que 15 es un número de 4 bits: lili en binario. El primer bloque indica el 
número de unidades completas de ‘15’; el segundo bloque indica el ‘resto’. Y aquí es 
donde empieza a aparecer la elegancia de los sistemas binario y hexadecimal. A conti¬ 
nuación damos una tabla de conversión entre los tres sistemas para los primeros 
números: 
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Decimal 

Binario 

Hexadecimal 


0 

0 

1 

1 

1 

2 

10 

2 

3 

11 

3 

4 

100 

4 

5 

101 

5 

6 

110 

6 

7 

111 

7 

8 

1000 

8 

9 

1001 

9 


1010 

A 

11 

1011 

B 

12 

1100 

C 

13 

1101 

D 

14 

1110 

E 

15 

lili 

F 

16 

10000 

10 


Un número de 8 bits tal como el 11010110 (&D6 hex) puede ser subdividido en dos de 
4 bits. A lo largo de todo este manual indicamos los números hexadecimales precedién- 
do los del signo &. El sistema hexadecimal es el más utilizado por los programadores 
que trabajan en ensamblador. El lenguaje ensamblador es la etapa más cercana a códi¬ 
go de máquina a la que llegan normalmente los programadores; permite expresar las 
instrucciones en ‘códigos nemotécnicos’, que son algo más inteligibles que los códigos 
de máquina. 

Para convertir un número hexadecimal en binario, lo primero que hay que hacer es ob- 
sevar el primer dígito, para ver cuántos grupos de ‘16’ hay en el número, multiplicar 
por 16 y luego sumar al resultado el valor del segundo dígito. Así pues, no se deje llevar 
por la tentación de pensar que &D6 es 13+6, ni 136, porque en realidad es 
(13x 16)+(6)=214. 

El proceso es el mismo que seguimos cuando leemos un número decimal: 
89=(8xl0)+9. Lo que ocurre es que nos resulta mucho más fácil multiplicar por 10 
que por 16; es una cuestión de práctica. 

Si usted ha conseguido llegar hasta aquí sin estar demasiado confuso, puede decir que 
está en el buen camino para llegar a entender los principios básicos del ordenador. Qui¬ 
zá se pregunte para qué nos metemos en todas estas complicaciones, y tiene razón. Un 
ordenador es un aparato que maneja ideas y conceptos muy sencillos; lo que tiene de 
especial es que realiza esas operaciones a una velocidad muy grande (millones de veces 
por segundo) y que tiene una enorme capacidad para recordar los datos, tanto los que 
se le han suministrado como los resultados intermedios de los muchos miles de sumas 
que realiza antes de poder dar la respuesta final. 
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Si desea seguir estudiando la teoría de los ordenadores, sepa que hay miles de libros 
dedicados a estos temas. Algunos no le aclararán en absoluto las ideas, sino todo lo 
contrario, pero otros en cambio le guiarán en el descubrimiento de la sencillez y las re¬ 
laciones fundamentales que existen entre los sistemas de numeración y le ayudarán a 
comprender la forma en que el ordenador los maneja. 
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Parte 2: Más en concreto sobre el 
CPC6128 


En esta sección vamos a tratar algunas cuestiones específicas del 
CPC6128. La información básica sobre estos temas se puede encontrar 
en el ‘Curso de introducción’ y en el capítulo titulado ‘Lista completa 
de las palabras clave del BASIC de Amstrad’. 

Temas tratados en esta sección: 

* Juegos de caracteres 

* ASCII 

* Variables 

* Lógica 

* Caracteres definidos por el usuario 

* Formatos de escritura 

* Ventanas 

* Interrupciones 

* Datos 

* Sonido 

* Gráficos 

* Utilización del segundo banco de 64K de RAM 


Caracteres 

Cuando se ponga al teclado de su CPC6128, no dé por supuesto que en la pantalla va¬ 
yan a aparecer letras y números reconocibles. Ya hemos explicado que el ordenador 
no es una máquina de escribir. Lo que usted hace es pulsar una serie de conmutadores 
eléctricos; las señales eléctricas así producidas son traducidas por los circuitos internos 
para enviar a la pantalla grupos de puntos. Según sea la colocación de esos puntos, po¬ 
dremos reconocer letras, números u otros caracteres del ‘juego del caracteres’ del 
CPC6128. 

Algunos de estos caracteres no son accesibles directamente a través del teclado, sino 
mediante la instrucción PRINT CHR$(<número)). Esto es así porque la información 
se almacena en el ordenador en unidades de 1 byte y, como vimos en la parte 1 de este 
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capítulo, 1 byte puede tener 256 formas posibles. Dado que el ordenador tiene que de¬ 
dicar al menos un byte a cada carácter almacenado, más vale que aprovechemos las 
256 combinaciones posibles en lugar de conformamos con los 96 ‘caracteres estándar’ 
de las máquinas de escribir y desperdiciar los 160 restantes. 

Los caracteres estándar son un subconjunto del juego total de caracteres. Su nombre 
en informática es ‘caracteres ASCII’, término derivado de ‘American Standard Code 
for Information Interchange’ (código estándar norteamericano para el intercambio de 
la información). Se trata de un sistema diseñado para asegurar la compatibilidad de 
los datos transmitidos de un ordenador a otro. En el capítulo 7 hemos dado la lista 
de todos los caracteres ASCII, así como de los demás caracteres disponibles en el 
CPC6128, junto a sus números de código. 


Vamos a verlos 

Seguramente ya no encierra ningún secreto para usted un programa tan sencillo como 
éste: 


10 FOR n=32 TO 255 
20 PRINT CHR$(n)I 
30 NEXT 

con el que hacemos que el ordenador exhiba en la pantalla el juego completo de carac¬ 
teres. Pero estudiemos un poco la esencia de este programa. 

Lo primero que debemos obsevar es que al ordenador no le hemos dicho PRINT 
"abcdefghijklmn ...", sino PRINT CHR$(n). En vez de mencionar explícitamente 
los caracteres hemos puesto en su lugar una ‘variable’. Una variable es un elemento 
de información que varía según impongan las instrucciones del programa. (El nombre 
que hemos dado a la variable en este caso, n, es arbitrario; podríamos haber puesto 
cualquier letra o combinación de letras, cualquier cosa que no fuera una palabra reser¬ 
vada de BASIC.) 


¿Cómo sabemos que es una variable? 


Un número tal como el 5 es fijo, está entre el 4 y el 6 y no tiene nada de variable. El 
carácter n también es fijo: es una letra concreta del alfabeto. 

Entonces, ¿cómo distingue el ordenador las variables de las constantes? Si hubiéramos 
querido decirle que considerara la n como letra del alfabeto, la habríamos escrito entre 
comillas: "n". El ordenador habría respondido con el mensaje Syntax error, porque 
no entendería la línea FOR "n"=32 TO 255. 
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Al escribir la n sin comillas le hemos dicho al ordenador que n es una variable. La ins¬ 
trucción FOR de BASIC tiene que ir seguida del nombre de una variable, y el ordena¬ 
dor da por supuesto que lo que pongamos después de FOR es una variable. 

9 

También le hemos dicho al ordenador n=32 TO 255, con lo que hemos especificado 
el margen de variación de la variable: una sucesión que empieza en 32 y termina en 255. 

Una vez declarada la variable, debemos decirle al ordenador qué tiene que hacer con 
ella; eso es lo que hace la línea 20: 

20 PRINT CHR*(n> J 

Esta instrucción hace que el ordenador, cualquiera que sea el valor de n, busque en 
su memoria el carácter que corresponde a ese valor y lo escriba en la pantalla. 

El punto y coma impide que el ordenador realice un retorno de carro y avance de línea 
después de escribir cada carácter. (De no ser así, los caracteres aparecerían uno debajo 
de otro en la primera columna de cada línea.) 

La línea 30 le dice al ordenador que cuando haya concluido la tarea con el primer valor 
de n (que es el 32) debe retornar a la línea en la que está FOR y volver a hacer lo mismo 
con el siguiente (NEXT) valor de la variable n. Este mecanismo, denominado ‘bucle’, 
es fundamental para la programación. Gracias a él nos ahorramos el tener que escribir 
largas series de instrucciones similares. Usted aprenderá enseguida a incluirlo en sus 
programas. 

Cuando el bucle FOR ... NEXT alcanza el límite superior del margen declarado (255), 
el bucle termina y el ordenador vuelve al modo directo y muestra el mensaje Ready. 
Este mensaje indica que el ordenador está preparado para recibir más instrucciones, 
una de las cuales podría ser RUN, para ejecutar otra vez el programa. El programa 
está almacenado en la memoria y lo seguirá estando hasta que le digamos al ordenador 
que lo borre o apaguemos la máquina. 

Este programa ilustra un hecho esencial de la informática: todo lo que el ordenador 
hace está relacionado con números. El ordenador ha escrito el alfabeto y todos los de¬ 
más caracteres usando como referencia para acceder a ellos un número. Cuando usted 
pulsa la tecla A, no le está pidiendo al ordenador que escriba esa letra, sino que busque 
en su memoria la información numérica que necesita para exhibir el carácter en la pan¬ 
talla. La localización de esa información es función del código numérico que se activa 
al pulsar la tecla. (Cada carácter tiene un código asociado; la relación completa se da 
en el capítulo titulado ‘Para su referencia ...’.) 

Pero tampoco el hecho de visualizar el carácter tiene nada que ver con ‘escribir’, sino 
que es un proceso numérico. 

Por ejemplo, el código ASCII de la letra A es el 65. El ordenador tampoco entiende 
el número 65, por lo que tiene que traducirlo de decimal a una forma que le resulte 
más familiar: el código de máquina. Ya hemos estudiado los principios de esta conver¬ 
sión en la primera parte de este capítulo. 
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Al principio, la conversión de la notación decimal, a la que estamos tan acostumbra¬ 
dos, a notación hexadecimal nos parece muy difícil. Pensar en números decimales nos 
parece tan natural que cambiar de sistema de numeración es como cambiar de mano 
el tenedor y el cuchillo. 

Para manejar la notación hexadecimal es necesario adquirir cierto grado de destreza 
mental. Una vez adquirida, se empieza a entender el por qué de muchos hechos infor¬ 
máticos y se hace patente la elegancia de la estructura de este sistema de numeración. 

Si no conoce los sistemas binario y hexadecimal, le sugerimos que lea detenidamente 
la primera parte de este capítulo. 

Cuando el ordenador ha convertido la pulsación de la tecla A en un número comprensi¬ 
ble para él, busca en una zona de la memoria especificada por ese número, y en ella 
encuentra otra serie de números que describen la forma de la letra. El carácter que us¬ 
ted puede ver en la pantalla está formado por un bloque de datos, almacenado en la 
memoria en forma de ‘matriz’ numérica: 


lis 


MATRIZ EN BLANCO a MINÚSCULA 

(RETICULA) 



A MAYÚSCULA 


Los elementos de la matriz son puntos dispuestos en filas columnas. El carácter se ‘escribe’ 
encendiendo y apagando correctamente los puntos. En el CPC6128 cada matriz tiene 8 fi¬ 
las y 8 columnas. Si entre los 255 caracteres no encuentra el que necesita, usted mismo 
puede definirlo a su gusto con la instrucción SYMBOL que describiremos más adelante. 

Los caracteres ‘definidos por el usuario’ se construyen especificando cada uno de los 
64 puntos de la matriz. Las combinaciones posibles con 1.84467E +19, es decir, aproxi¬ 
madamente un 2 seguido de 19 ceros. Si a esto añadimos la posibilidad de agrupar ca¬ 
racteres para formar bloques más grandes, vemos que las posibilidades de generar grá¬ 
ficos sólo están limitadas por la imaginación del usuario. 


Lógica 

Una diferencia fundamental entre una calculadora y un ordenador radica en la capaci¬ 
dad de éste para manejar operaciones lógicas y tomar decisiones en instrucciones del 
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tipo IF ... THEN ... (si ... entonces ...). Para ello, los operadores lógicos tratan 
los valores a los que son aplicados como grupos de bits y examinan y modifican los 
bits uno a uno. No es fácil describir las operaciones lógicas sin antes dar unas definicio¬ 
nes concisas. 

Las dos mitades de una expresión lógica son los ‘argumentos’. Una expresión lógica 
tiene la siguiente forma: 

<argumento) [<operador lógico) (argumento)] 
donde (argumento) puede ser: 

NOT (argumento) 

(expresión numérica) 

(expresión de relación) 

((expresión lógica)) 

Los dos argumentos de un operador lógico tienen que ser enteros; de lo contrario se 
produce el error número 6. 

Los operadores lógicos (en orden de prioridad) y su efecto sobre los bits son los 
siguientes: 

AND El resultado es 0 a menos que los bits de los dos argumentos sean 1. 

OR El resultado es 1 a menos que los bits de los dos argumentos sean 0. 

XOR El resultado es 1 a menos que los bits de los dos argumentos sean iguales. 

AND es el operador lógico más utilizado. 

PRINT 10 AND 10 

da como resultado 10 . 

PRINT 10 AND 12 
da como resultado 8. 

PRINT 10 AND 1000 
también da como resultado 8. 

Esto se debe a que los números 10 y 1000 han sido convertidos a su forma binaria: 
1010 

1111101000 

La operación AND comprueba los bits dos a dos. Si los dos bits de las dos filas son 
1, el resultado es 1: 

0000001000 

y este número binario es el 8 decimal. El operador lógico AND se utiliza para detectar 
cuándo se cumplen simultáneamente dos condiciones. He aquí un ejemplo que explica 
cómo: 
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10 INPUT "Día del mes: “,dia 
20 INPUT "Mes número: ",mes 
30 IF dia=25 AND mes=12 THEN 50 
40 CLS:GOTO 10 
50 PRINT "Feliz Navidad!” 

OR funciona de forma análoga, pero da como resultado 1 a no ser que los bits de los 
dos operandos sean 0, en cuyo caso el resultado es 0. Aplicado a los mismos números 
que en el ejemplo de AND, 

PRINT 1000 OR 10 
1002 

Bit a bit: 

1010 

1111101000 
cuyo resultado es 
1111101010 

Un programa ejemplo: 

10 CLS 

20 INPUT "Mes número: ",mes 

30 IF mes=12 OR mes=l OR mes=2 THEN 50 

40 GOTO 10 

50 PRINT "Estamos en invierno!" 

El operador NOT invierte todos los bits del argumento (convierte el 0 en 1, y viceversa): 

10 CLS 

20 INPUT "Mes número: ",mes 

30 IF NOT(mes=6 OR mes=7 OR mes=8) THEN 50 

40 GOTO 10 

50 PRINT "No estamos en verano!" 


Observe que se pueden combinar los operadores lógicos, sin más limitación que la lon¬ 
gitud de la línea: 

10 INPUT "Día del mes: ".dia 
20 INPUT "Mes número: ",mes 

30 IF NOT(mes=12 OR mes=l) AND dia=29 THEN 50 
40 CLS:GOTO 10 

50 PRINT "No es ni diciembre ni enero, pero puede 
ser un a?ro bisiesto" 
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El resultado de una expresión de relación es — 1 o 0. La representación binaria del nú¬ 
mero — 1 es una sucesión de bits iguales a 1; para el 0, todos los bits son 0. El resultado 
de una operación lógica entre argumentos de este tipo da -1 (verdadero) o 0 (falso). 

Añada las siguientes líneas al programa anterior: 

60 PRINT NOT<mes=12 OR mes=l> 

70 PRINT <mes=12 OR mes=l) 

Si al ejecutar el programa introduce 29 para el día y 2 para el mes, obtendrá el mensaje 
de la línea 50, y las líneas 60 y 70 escribirán los resultados de las operaciones. 

Finalmente, XOR (OR eXclusivo) produce como resultado ‘verdadero’ siempre que los 
argumentos sean diferentes. 

A continuación resumimos todo lo dicho en una tabla, denominada tabla de verdad. 
Es una forma muy clara de ilustrar qué sucede en una operación lógica bit a bit. 


Argumento A 1010 

Argumento B 0110 

Resultado de AND 0010 

Resultado de OR 1110 

Resultado de XOR 1100 


Caracteres definidos por el usuario 


Una de las primeras aplicaciones que el lector encontrará para los números binarios 
es el diseño de caracteres con la instrucción SYMBOL. Como sabemos, el carácter se 
diseña en una retícula de 8 por 8; cada una de las 8 filas se convierte en un número 
binario poniendo un 1 en lugar del pixel que debe ser iluminado, y un cero en lugar 
del pixel que debe quedar del color del papel. Los 8 números así obtenidos serán los 
parámetros de SYMBOL. Por ejemplo, para definir un carácter que representa una 
casa: 


* 

= 

00001000 

= 

íc03 

= 


8 


= 

8 

**** 

= 

00111100 

= 

8í3C 

= 


32+16+8+4 


= 

60 

* 

* 

= 

01000010 

= 

8í42 

= 


64 +2 


= 

66 

* * 

* * 

= 

10100101 

= 

Se A 5 

= 

128 

+32 +4 

+ 1 

= 

165 

* 

* 

= 

10000001 

55 

Se 81 

55 

128 


+ 1 

= 

129 

* ** * * 

= 

10110101 

= 

8eB5 

= 

128 

+32+16 +4 

+ 1 

m 

181 

* ** 

* 

= 

10110001 

= 

SeBl 

= 

128 

+32+16 

+ 1 

= 

177 

******** 

= 

11111111 

= 

SeFF 

= 

128+64+32+16+8+4+2+1 

= 

255 
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la orden es 


SYMBOL 240,8,60,66,165,129,181,177,255 

o bien 

SYMBOL 240, 8í08,8í3C , 8í42 , IíA5 , 6í8 1 , BíB5,8íB 1 , BíFF 
o bien 

SYMBOL 240, &X00001000,8<X00111100, l£X01000010, kX10100101, 
6íX 10000001, ÍíX101 10101, 6íX101 10001,kXl1111111 

Para escribir el carácter así definido: 

PRINT CHR$(240) 

Finalmente, para agrupar caracteres se puede hacer 

adosado$=CHR$(240)+CHRÍ(240) 

PRINT adosados 

o bien 

urbanizac ionS=STRINGS(15,240) 

PRINT urbanizacionS 

La imprenta ... 


PRINT es la primera instrucción que se usa cuando se empieza a programar. En princi¬ 
pio es muy sencilla, pero podemos complicarla considerablemente. En efecto, no basta 
con pedirle al ordenador que escriba, sino que también debemos decirle dónde y cómo. 


Formato de escritura 


La instrucción PRINT se puede utilizar de diversas formas. La más sencilla es poner 
a su derecha el elemento que se desea escribir, que puede ser un número, una cadena 
literal o el nombre de una variable: 

PRINT 3 
3 
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PRINT “hola 
hola 


a=5 

PRINT a 
5 

a$=“prueba" 

PRINT a* 
prueba 

En una instrucción PRINT se pueden poner varios elementos, intercalando entre ellos 
un separador, o bien TAB o SPC. Los separadores pueden ser la coma o el punto y 
coma. El punto y coma hace que el siguiente elemento se escriba inmediatamente a con¬ 
tinuación del que se acaba de escribir; la coma provoca el salto a la siguiente zona de 
escritura. La anchura implícita de la zona de escritura es 13, pero se la puede modificar 
con la orden ZONE: 

PRINT 3;-4;5 
3-4 5 

PRINT "buenos","días" 
buenos dias 

PRINT 3,-4,5 


ZONE 4 

PRINT 3,-4,5 
3-4 5 

Observe que los números positivos llevan un espacio a la izquierda, mientras que en 
los negativos ese espacio está ocupado por el signo —. Todos los números llevan un 
espacio en blanco a la derecha. Las cadenas se escriben literalmente tal como están en¬ 
tre las comillas. 

La función SPC lleva como parámetro una función numérica; ‘escribe’ tantos espacios 
como indique el valor de la expresión. Si el valor es negativo, se toma el 0; si es mayor 
que la anchura de la ventana actual se toma esa anchura: 

PRINT SPC(5)"hola" 
hola 


x=3 

PRINT SPC(x*3>"hola" 
hola 
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TAB es similar, pero el número de espacios que escribe es el necesario para que el si¬ 
guiente elemento se empiece a escribir en la columna especificada. 

La ventana en la que se escribe es la número 0, a no ser que se especifique otro número 
de canal (#) antes de la lista de elementos. Se pueden especificar otros canales para en¬ 
viar la salida a otras ventanas. Los canales 8 y 9 están reservados para la impresora 
y el disco (o cinta), respectivamente. (Obsérvese que para ‘escribir’ en el canal #9 se 
debe utilizar WRITE en lugar de PRINT.) 


PRINT 

hola 

"hola" 

- ventas» 1 

PRINT 

hola 

#0,"hola" 

- tanbien ventana 1 

PRINT 

hola 

#4,"hola" 

- ventana 4 



(peinera linea le la pantalla) 

PRINT 

hola 

#8,"hola" 

- en la inpresnra 



(si esta conéctala) 


Con TAB y SPC se pueden controlar los formatos más sencillos, pero en cuanto el for¬ 
mato deseado sea un poco más complejo habrá que utilizar PRINT USING y una 
‘plantilla’ adecuada. Una plantilla de formato es una expresión literal que contiene ca¬ 
racteres especiales, cada uno de los cuales especifica un formato determinado. Estos 
caracteres, denominados ‘especificadores de formato’, están explicados en detalle en 
la descripción de PRINT USING (capítulo 3). Aquí vamos a dar algunos ejemplos. 

En primer lugar, he aquí los formatos disponibles para escribir cadenas literales: 

" escribe tantos caracteres como espacios haya en la plantilla, más dos: 

PRINT USING 8 *1"cadena de prueba* 

cadena d 

"!" escribe solamente el primer carácter de la cadena: 

PRINT USING 8 ! 8 }"cadena de prueba" 
c 

Pero el formato literal más útil es seguramente Con él se anula una función de 
BASIC por la cual, si una cadena es demasiado larga como para caber en la línea ac¬ 
tual, el ordenador la escribe al principio de la línea siguiente. PRINT USING de¬ 
sactiva esa función. (En el siguiente ejemplo ponga BORDER 0 para hacer visibles los 
bordes del papel.) 
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MODE l:LOCATE 39,l:PRINT "demasiado 


- linea 1 

demasiado - liaea 2 

MODE i:LOCATE 39 f l:PRINT USING "fe"I"demasiado" 

de - linea 1 

mas i ado - linea 2 

Para los números se dispone de gran variedad de plantillas. La más sencilla es PRINT 
USING "#####", en la que cada # reserva espacio para un dígito: 

PRINT USING "######";123 
123 

La oposición del punto decimal se puede especificar incluyendo un punto en la 
plantilla: 

PRINT USING "####.#####"I12.45 
12.45000 

Los dígitos que quedan a la izquierda del punto decimal se pueden agrupar de tres en 
tres, separados por comas, si se pone una coma a la izquierda del punto en la plantilla: 

PRINT USING "########, .####" \ 123456.78 
123,456.7800 

En el formato se pueden incluir los signos de dólar y de libra esterlina, para que aparez¬ 
ca siempre el signo monetario antes del primer dígito, aunque el número no llene el for¬ 
mato. Esto se consigue poniendo $$ o PtPt en la plantilla: 

PRINT USING "$$##";7 
$7 

PRINT USING "«##"5 351 
$351 

PRINT USING "fcMMMMt, 1234.567 

M, 234.57 

Observe cómo se ha redondeado este último número. 

Se puede rellenar el espacio sobrante por la izquierda con asteriscos poniendo * * en 
la plantilla: 


Cuando usted guste ... 


9/23 


PRINT USING "**####.#"; 12.22 
**** 12.2 

Esto último se puede combinar con los signos monetarios poniendo * *$ o * *Pi en la 
plantilla. 

Un signo + al principio de la plantilla especifica que siempre se debe escribir el signo 
del número a su izquierda. Si el + está al final de la plantilla, el signo se describe a 
la derecha del número. 

El signo - sólo se puede poner al final de la plantilla; especifica que se debe poner el 
signo — a la derecha del número si éste es negativo. 

PRINT USING "+##"; 12 
+ 12 

PRINT USING "+#«"; -12 
-12 

PRINT USING "##+"; 12 
12 + 


PRINT USING -12 

12 - 

PRINT USING 12 

12 


La inclusión de “TtTt” en la plantilla hace que el número se escriba en forma 
exponencial: 

PRINT USING 123.45 

12.35E+01 


En cualquier caso, si el número es demasiado grande como para caber en el formato 
especificado, el número no se trunca, sino que se lo escribe entero, precedido de un 
signo % para indicar lo que ha ocurrido: 

PRINT USING "####";123456 
%123456 


Ventanas 

El BASIC del CPC6128 permite la definición y el control de hasta ocho ventanas de 
texto. Todas las acciones de control de textos se pueden referir a cualquiera de estas 
ventanas. 
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Las ventanas se definen con la orden WINDOW, que va seguida de 5 parámetros. El 
primero es opcional y especifica el número de la ventana que se va a definir; si se lo 
omite, el ordenador supone el 0, que es el canal por el que el BASIC emite sus mensajes 
normales (Ready, errores, etc.). Antes del número se pone el signo # para indicar que 
se está dando un número de canal. Los otros cuatro parámetros especifican los extre¬ 
mos izquierdo, derecho, superior e inferior de la ventana. Como son números de fila 
y de columna, pueden estar comprendidos entre 1 y 80 los dos primeros, y entre 1 y 
25 los dos últimos. 

El siguiente ejemplo define la ventana (canal) número 4, la cual se extiende desde la 
columna 7 hasta la 31, y desde la fila 6 hasta la 18. Reinicialice la máquina y luego 
escriba: 

WINDOW #4,7,31,0,18 

No parece que haya ocurrido nada, así que escriba lo siguiente: 

INK 3,9 
PAPER #4,3 
CLS #4 


En la pantalla ha aparecido un gran rectángulo verde, que es la ventana número 4. Este 
último ejemplo demuestra que las instrucciones PAPER y CLS se pueden referir a cual¬ 
quiera de las ocho ventanas especifiando el número de canal; su omisión hace que la 
orden actúe sobre la ventana número 0. 

Las órdenes para las que se puede especificar número de ventana son las siguientes: 

CLS 

COPYCHR$ 

INPUT 

LINE INPUT 

LIST 

LOCATE 

PAPER 

PEN 

POS 

PRINT 

TAG 

TAGOFF 

VPOS 

WINDOW 

WRITE 


La ventana verde que hemos creado habrá borrado parte del texto que teníamos en la 
pantalla, que había sido enviado a la ventana número 0. 
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El texto se puede escribir en cualquier ventana especificando el número de canal en la 
instrucción PRINT: 

PRINT #4,“estoy en la ventana 4" 

Estas palabras han aparecido en el extremo superior de la ventana verde, no en la línea 
siguiente de la pantalla, que es lo que habría ocurrido con: 

PRINT "estoy en la ventana 0" 

Observe que al escribir esta última orden el texto ha invadido parte de la ventana verde. 

Si usted desea confinar todos los mensajes de BASIC a la ventana número 4 , intercám- 
biela con la implícita (la número 0) mediante la orden: 

WINDOW SWAP 0,4 

El mensaje Ready ha aparecido ahora en la ventana verde y el cursor está debajo de 
él. Escriba lo siguiente: 

PRINT #4,"estoy en la ventana 4" 

El texto ha aparecido debajo de la orden WINDOW SWAP, en lo que antes era la ven¬ 
tana 0 y ahora es la 4 . Estos ejemplos demuestran que el ordenador recuerda la posición 
de escritura de cada ventana incluso después de un intercambio. Escriba lo siguiente: 

LOCATE #4,20,1 

PRINT "estoy en la ventana 0" 

PRINT #4,"estoy en la ventana 4" 

Mientras no se ejecuta una orden WINDOW, todas las ocho ventanas coinciden con 
la pantalla entera. Lo mismo ocurre después de una orden MODE. Así pues, si después 
de jugar con las ventanas se encuentra con que el cursor está en una muy pequeña, pue¬ 
de salir del lío escribiendo MODE 1: 

MODE 1 

WINDOW 20,21,7,18 
MO 
DE 
1 


El ordenador se ha visto obligado a partir la palabra MODE, pero la instrucción fun¬ 
ciona igual. (No olvide dejar un espacio entre la E y el 1.) 
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Ahora que ya tiene una idea de cómo funcionan las ventanas, escriba y pruebe el si¬ 
guiente programa: 

10 MODE 0 

20 FOR n-0 TO 7 

30 WINDOW #n,n+l,n+6,n+i,n+6 

40 PAPER #n,n+4 

50 CLS #n 

60 FOR c=i TO 200:NEXT c 
70 NEXT n 

Este programa crea 8 ventanas que se solapan y las borra con un color de papel diferen¬ 
te para cada una. 

Cuando termine el programa y haya aparecido Ready, pulse [RETURN] varias veces 
para observar cómo afecta el desplazamiento de la ventana 0 a los bloques de colores. 
Sin embargo, aunque el contenido de las ventanas se desplace, las ventanas en sí siguen 
estando en el mismo sitio. Compruébelo escribiendo: 

CLS #4 

Fíjese también en los diferentes efectos de las siguienes órdenes: 

LIST 
LIST #4 
LIST #3 

Otra característica interesante de la orden WINDOW es que también admite los núme¬ 
ros que especifican los bordes izquierdo y derecho en orden inverso; es decir, aunque 
el primer parámetro sea mayor que el segundo, BASIC los interpreta en el orden co¬ 
rrecto. Análogamente ocurre con los bordes inferior y superior. 

10 MODE 0 

20 a=l+RND*19:b=l+RND*19 
30 c=l+RND*24:d=l+RND*24 
40 e=RND*15 
50 WINDOW a,b,c,d 
60 PAPER e: CLS 
70 GOTO 20 


Interrupciones 

Por si todavía no lo ha leído en otro lugar de este manual, le diremos que una de las 
principales innovaciones del software de los ordenadores Amstrad es su capacidad de 
gestión de las interrupciones desde BASIC; esto hace que el BASIC de Amstrad sea 
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capaz de realizar acciones simultáneas controladas por programa. Esto es lo que se sue¬ 
le denominar ‘multitarea’, y se programa con las instrucciones AFTER y EVERY. 

Esta misma habilidad queda demostrada por la forma en que se controla el sonido a 
través de recursos tales como las colas de sonido y la sincronización de canales. 

De todo lo que tenga que ver con la medida del tiempo se encarga el cronómetro patrón 
del sistema, que es un circuito controlado por un cristal de cuarzo. Este reloj se encarga 
de cronometrar y de sincronizar los procesos que tienen lugar dentro del ordenador: 
desde el barrido de la pantalla hasta al envío de impulsos al microprocesador. Toda 
función del hardware que tenga que ver con el tiempo depende del reloj patrón. 

Las instrucciones AFTER (después de) y EVERY (cada) hacen precisamente lo que su 
nombre sugiere. Así, AFTER invoca una determinada subrutina cuando ha transcurri¬ 
do el tiempo especificado. 

El CPC6128 mantiene un reloj de tiempo real. La orden AFTER permite que un pro¬ 
grama de BASIC realice una tarea en un instante futuro especificado. Existen cuatro 
temporizadores de retardo, cada uno de los cuales puede tener una subrutina asociada. 

Cuando el tiempo especificado ha transcurrido, la rutina se ejecuta automáticamente, 
exactamente igual que si el ordenador hubiera encontrado un GOSUB en la línea actual 
del programa. Cuando la rutina se acaba, con el RETURN habitual, el programa conti¬ 
núa a partir del punto en que fue interrumpido. 

La orden EVERY permite que el programa de BASIC ejecute subrutinas a intervalos 
de tiempo regulares. También en este caso se dispone de cuatro temporizadores, a cada 
uno de los cuales se puede asignar una subrutina distinta. 

Los temporizadores tienen prioridades de interrupción diferentes, lo que tiene impor¬ 
tancia cuando varios de ellos compiten por interrumpir el programa en un momento 
dado. El temporizador 3 tiene la máxima prioridad, y el 0 la mínima (véase el capítulo 
‘Para su referencia ...’). 

10 MODE l:n=14:x=RND#400 
20 AFTER x,3 GOSUB 90 
30 EVERY 25,2 GOSUB 170 
40 EVERY 10,1 GOSUB 180 
50 PRINT"Pruebe sus re-flejos:" 

60 PRINT"pulse la barra espaci adora" 

70 PRINT M cuando yo le diga." 

80 IF ind=l THEN END ELSE 80 
90 x=REMAIN(2) 

100 IF INKEY(47)=-l THEN 120 

110 SOUND 1,900:PRINT"Tramposo!":GOTO 160 

120 SOUND 129,20:PRINT"AHORA":t=TIME 

130 IF INKEY<47> =-1 THEN 130 

140 PRINT"Ha tardado "5 
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150 PRINT(TIME-t)/300!"segundos" 
160 CLEAR INPUT:ind = l:RETURN 
170 SOUND 1,0,50:PRINT"."5:RETURN 
180 n=n+l:IF n>26 THEN n=14 
190 INK l,n:RETURN 


Las órdenes AFTER y EVERY se pueden ejecutar en cualquier lugar del programa. Su 
efecto es reelegir la rutina asociada y poner a cero el temporizador correspondiente. 
Los temporizadores están compartidos por AFTER y EVERY, de modo que una orden 
AFTER cancela la anterior EVERY referida al mismo temporizador, y viceversa. 

Las órdenes DI y El inhiben y habilitan, respectivamente, las interrupciones. Esto sirve 
para permitir que cierta interrupción se procese sin ser interrumpida por otra más prio¬ 
ritaria. La orden REMAIN da el tiempo que queda en un temporizador y lo desactiva. 


Listas de datos 


Si un programa necesita que se le suministre siempre la misma información cada vez 
que se lo ejecuta, es preferible hacer que esa información esté contenida en el propio 
programa para no tener que teclearla con cada ejecución. Esto es posible gracias al par 
de instrucciones READ/DATA. La orden READ es similar a INPUT en el sentido de 
que asigna valores a variables, pero en lugar de captar los valores por el teclado los 
lee en listas encabezadas por la palabra DATA. Los dos ejemplos siguientes ilustran 
la diferencia: 

10 INPUT "escriba 3 números separados por comas: ”,a,b,c 

20 PRINT"los números son"5 a!"y"ib;"y";c 

run 

10 READ a,b,c 

20 PRINT"los números son"5 a;"y">b;"y"jc 

30 DATA 12,14,21 

run 


Los datos contenidos en las listas DATA van separados por comas, lo mismo que los 
que se teclean en respuesta a una instrucción INPUT. 
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Las listas DATA pueden contener, no sólo números, sino también cadenas literales 
constantes: 

10 DIM a$(11) 

20 FOR i=0 TO 11 
30 READ a$<i) 

40 NEXT 

50 FOR i=0 TO 11 
60 PRINT a*<i)5" 

70 NEXT 

80 DATA Cuentan,de,un,sabio,que,un,dla,tan,pobre,y, 
misero,estaba 

run 


Observe que no es necesario encerrar entre comillas las cadenas que se ponen en las 
listas DATA. Las comillas en este caso son opcionales (también lo son en INPUT). El 
único caso en que son necesarias es cuando una cadena contiene una coma; si no se 
la pusiera entre comillas, la instrucción READ se detendría en la coma y no leería el 
resto de la cadena. 

10 READ a$ 

20 WHILE a*< >"•*" 

30 PRINT a$ 

40 READ a$ 

50 UEND 

60 DATA los días de la semana son lunes, martes, 
miércoles, jueves, viernes y sábado 
70 DATA "los días de la semana son lunes, martes, 
miércoles, jueves, viernes y sábado" 

80 DATA * 
run 

La cadena de la línea 60 contiene comas, y por lo tanto cada tramo será leído por 
READ y escrito por separado. En cambio, la de la línea 70 ha sido delimitada por comi¬ 
llas y READ la lee de una sola vez. 

El ejemplo anterior demuestra que los datos pueden estar distribuidos en varias líneas 
(60, 70, 80, ...). Otro detalle no tan evidente es que las líneas DATA pueden estar en 
cualquier lugar del programa, antes o después de las instrucciones READ que leen la 
información. 

Si un programa contiene varias instrucciones READ, cada una continúa leyendo donde 
terminó la anterior: 
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10 DATA 123,456,789,321,654,2343 

20 FOR i=l TO 5 

30 READ num 

40 total=total+num 

50 NEXT 

60 READ total2 

70 IF total=total2 THEN PRINT "los datos son 

correctos" ELSE PRINT "hay un error en los datos" 

run 

Modifique uno de los primeros cinco números de la lista de la línea 10 y ejecute otra 
vez el programa. Esta técnica de poner al final de la lista un dato adicional que sea 
la suma de los anteriores constituye un buen método de detección de errores en los da¬ 
tos, especialmente si los datos son muchos. Se le llama ‘suma de verificación’ 
(checksum). 

Si un programa requiere datos mixtos (cadenas y números), se los puede combinar en 
una misma lista DATA, a condición de que READ los lea en el orden correcto. Por 
ejemplo, si una lista DATA contiene dos números seguidos de una cadena, la instruc¬ 
ción READ tendrá que leer primero dos variables numéricas y luego una literal: 

10 DIM a(5),b<5),s*<5) 

20 FOR i=l TO 5 
30 READ a <i),b(i),s* <i) 

40 NEXT 

50 DATA 1,7,Alfredo,3,9,Juan,2,2,Enri que,4,6, 

Pedro,9,1,Manuel 
60 FOR i=l TO 5 
70 PRINT s*<i>,":"?a(i)*b<i> 

80 NEXT 

También se pueden separar los datos en dos listas distintas: 

10 DIM a(5) ,b (5) ,s*><5) 

20 FOR i—1 TO 5 
30 READ a(i),b <i) 

40 NEXT 

50 FOR i=l TO 5 
60 READ s$<i) 

70 NEXT 

80 DATA 1,7,3,9,2,2,4,6,9,1 

90 DATA Alfredo,Juan,Enrique,Pedro,Manuel 

100 FOR i=l TO 5 

110 PRINT s*(i>,*;a(i>*b<i) 

120 NEXT 
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Si ahora cambiamos el límite superior de la línea 20: 

20 FOR i=l TO 4 

los dos primeros intentos de leer cadenas darán ‘9’ y ‘1’. Estos valores son cadenas váli¬ 
das, pero el programa no funciona como esperábamos. Una forma de asegurar que el 
programa funcione correctamente consiste en incluir las líneas: 

15 RESTORE 80 
45 RESTORE 90 

La orden RESTORE hace que el puntero de datos ‘apunte’ hacia el principio de la línea 
especificada; por lo tanto se la puede incluir en una instrucción condicional para que 
el bloque de datos leídos dependa del resultado de alguna comprobación. Por ejemplo, 
en un juego que esté previsto para varios niveles de destreza, los datos de cada nivel 
pueden ser seleccionados mediante una variable adecuada. Veamos un ejemplo: 

1000 REM sección para dibujar la pantalla 

1010 IF nive 1=1 THEN RESTORE 2010 

1020 IF nivel=2 THEN RESTORE 2510 

1030 IF ni ve1=3 THEN RESTORE 3010 

1040 FOR y=l TO 25 

1050 FOR x=l TO 40 

1060 READ car 

1070 LOCATE x,y:PRINT CHR$(car)J 
1080 NEXT x,y 

■ • ■ 

2000 REM DATA para pantalla 1 

2010 DATA 200,190,244,244,210, ... (te. 

■ ■ v 

2500 REM DATA para pantalla 2 

2510 DATA 100,103,245,243,251, ... etc. 

■ ■ ■ 

3000 REM DATA para pantalla 3 

3010 DATA 190,191,192,193,194, ... etc. 

Otra aplicación típica de las instrucciones DATA/READ/RESTORE es un programa 
que interprete una melodía. Los periodos de tono se pueden poner en listas data; RES¬ 
TORE puede hacer que se repita una sección moviendo el puntero de datos hacia atrás: 

10 FOR i=1 TO 3 
20 RESTORE 100 
30 READ nota 
40 WHILE nota<>-l 
50 SOUND 1,nota,35 
60 READ nota 
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70 WEND 
80 NEXT 

90 SOUND 1,142,100 
100 DATA 95,95,142,127,119,106 
110 DATA 95,95,119,95,95,119,95 
120 DATA 95,142,119,142,179,119 
130 DATA 142,142,106,119,127,-1 


run 


£1 sonido de la música 

De todas las instrucciones del CPC664, es posible que las de sonido y envolventes le 
parezcan las más imponentes a primera vista. Y sin embargo, con un poco de práctica, 
muy pronto podrá programar ruidos de diversos tipos e incluso melodías con armonía. 

Empecemos por analizar las cuatro primeras partes de la instrucción SOUND, que son 
las siguientes: situación de canales, periodo de tono, duración de la nota y volumen. 
Lo primero que hay que saber es en qué margen de valores puede estar cada uno de 
estos parámetros. 

Aplazaremos el primero de momento porque es el más complicado. El segundo, perio¬ 
do de tono, puede tener cualquier valor entero comprendido entre 0 y 4095. Sin embar¬ 
go sólo algunos de estos valores producen notas reconocibles: son los que están relacio¬ 
nados en la parte 5 del capítulo ‘Para su referencia ..Por ejemplo, el número 239 
produce la nota DO media; el 253 produce la nota SI inmediatamente anterior; los va¬ 
lores 240 a 252 producen cada uno un tono diferente, pero ninguno de ellos correspon¬ 
de a la escala del piano. Si el parámetro es 0, no se produce ningún tono; esto es útil 
cuando se está generando ruido. 

El tercer parámetro de la orden SOUND especifica la duración de la nota en unidades 
de centésimas de segundo. Su valor puede estar normalmente entre 1 y 32767. Si es 0, 
la duración queda controlada por la ‘envolvente’ (de la que hablaremos más adelante). 
Si el parámetro es negativo, su valor obsoluto indica cuántas veces se va a repetir la 
envolvente; por ejemplo, -3 significa ‘repetir la envolvente tres veces’. 

El cuarto parámetro especifica el volumen. Puede valer entre 0 y 15; el valor implícito 
es 12, que es el que el ordenador supone si no se especifica otra cosa. En los sonidos 
sencillos que hemos conocido hasta ahora, el volumen ha permanecido constante du¬ 
rante el tiempo en que ha sonado cada nota. Sin embargo, cuando se utiliza una ‘envol¬ 
vente de volumen’ para hacer que éste deje de ser constante, el parámetro ‘volumen’ 
de SOUND se considera como volumen inicial de la nota. 

Bueno, vamos con el parámetro de situación de cánales. Quizá sepa ya el lector que 
el significado de este parámetro depende del valor de sus bits; para entenderlo necesita¬ 
rá saber algo acerca de los números binarios (parte 1 de este capítulo). 
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El sonido se puede generar en tres canales distintos. Si el ordenador está conectado a 
un amplificador estereofónico, un canal será el derecho, otro el izquierdo y otro común 
a ambos o central. Para especificar en qué canal o canales debe sonar una nota se utili¬ 
zan los siguientes números: 

1 canal A 

2 canal B 
4 canal C 

Para enviar el sonido a varios canales, se suman los números correspondientes. Por 
ejemplo, para que la nota suene en los canales A y C, el parámetro debe ser 1+4=5. 

SOUND 5,284 

Se preguntará el lector por qué el número del canal C es 4, y no 3. Observe que estos 
tres números son potencias de 2(1 =2t0, 2=2Í 1, 4=2Í2) y se combinan para dar un nú¬ 
mero binario. Si imaginamos un número binario de tres dígitos, cada uno de ellos se 
puede utilizar para indicar si el canal correspondiente debe estar conectado o desconec¬ 
tado. En el ejemplo anterior, 5 en decimal es equivalente a 1*4+0*2+1*1, es decir, 
101 en binario. Si a los dígitos de este número binario les ponemos las etiquetas C, B 
y A, tenemos 

C B A 
1 0 1 

de forma que C y A están conectados, mientras que B está desconectado. Si quisiéra¬ 
mos que la nota sonase en los canales A y B, el número tendría que ser 

C B A 
0 1 1 

En decimal: 0*4+1 *2+1 *1=3. La orden SOUND sería 
SOUND 3,142 

Naturalmente, este número tiene que coincidir con el que se obtendría sumando los va¬ 
lores correspondientes a los dos canales: 1+2=3 (recuerde que A=l, B=2, C=4). 

Si después de todo no ha entendido cómo funciona esto en binario, no se preocupe. 
Le basta con saber que las combinaciones de canales se programan sumando los núme¬ 
ros de selección de los canales deseados. 

Lamentablemente (o afortunadamente, según cómo se mire), todavía podemos sumar 
otros números a este parámetro. Así, los números 8, 16 y 32 especifican que el sonido 
debe sincronizarse con otro canal (A, B o C, respectivamente). Ahora hace falta saber 
qué es eso de ‘sincronizar con un canal’. Pues bien, los sonidos que hemos generado 
hasta ahora han ido directamente al canal especificado. Escriba lo siguiente: 

SOUND 1,142,2000 
SOUND 1,90,200 
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A menos que sea usted un mecanógrafo muy lento, habrá tenido tiempo de escribir la 
segunda orden antes de que se extinguiera el primer sonido. Esto ocurre porque el siste¬ 
ma de sonido puede guardar hasta cinco órdenes en cada una de las colas de los tres 
canales. Si queremos que suene una nota por el canal A y luego dos notas simultánea¬ 
mente en los canales A y B, necesitamos un forma de indicar al ordenador que no debe 
ejecutar la nota del canal B mientras no haya terminado la primera del A. En esto con¬ 
siste la sincronización de canales. Hay dos formas de conseguirla: 

SOUND 1,200,1000 
SOUND 3,90,200 

En este ejemplo hemos dirigido la segunda nota a A y B, y por lo tanto no puede sonar 
mientras no haya concluido la primera. La limitación de este método es -que el sonido 
que se envía a varios canales tiene que ser igual en todos ellos (en este caso, , 90,200 
era igual para el A que para el B). El otro método es el siguiente: 

SOUND 1,200,2000 
SOUND 1+16,90,200 
SOUND 2+8,140,400 

Aquí hemos hecho que la segunda nota de A se sincronice con el sonido de B (y que 
éste se sincronice con el canal A). La ventaja de este método es evidente: las notas sin¬ 
cronizadas pueden ser (y en este caso son) diferentes. Estos números de sicronización 
también son interpretables bit a bit: 

8=2Í3, 16=2Í4, 32=2T5 

Así, el número de situación de canales se puede considerar como número binario cuyos 


dígitos tienen el siguiente significado: 




Sincr. con 

Sincr. con 

Sincr. con 

Sonar en 

Sonar en 

Sonar en 

C 

B 

A 

C 

B 

A 

Sumar 32 

Sumar 16 

Sumar 8 

Sumar 4 

Sumar 2 

Sumar 1 

Por ejemplo, para hacer sonar 

una nota en el 

canal C sincronizado con el A: 

0 

0 

1 

1 

0 

0 


Éste es el número binario 1100, equivalente a 8+4 en decimal. 

Así pues, el número de situación de canales 12 ordena a la máquina que haga sonar 
una nota en el canal C y que espere por una nota que debe sonar en el canal A y que 
ha sido marcada para sincronizarla con el C. 

Si ahora sumamos 64 (=2Í6) al parámetro, estamos indicando que la nota debe ser re¬ 
tenida. Esto significa que no va a sonar mientras no la liberemos con la orden 

RELEASE. 

Finalmente, si sumamos 128 (=217), borramos la cola de sonido del canal especificado. 
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Por ejemplo, si hemos ordenado un sonido que va a durar un buen rato, podemos anu¬ 
larlo borrando la cola del canal correspondiente: 

SOUND 1,248, 30000 (esta nota jara 5 iiñutos) 

SOUND 1 + 128,0 (pero esta la detiene) 

Cuando se esté en modo directo, la forma más rápida de interrumpir un sonido es pul¬ 
sar [DEL] al principio de la línea; el pitido que así se produce borra todas las colas de 
sonido. 

Ahora que ya sabemos enviar sonido a cualquier combinación de canales (con sincroni¬ 
zación, si es necesario), vamos a intentar producir algo más agradable que los molestos 
pitidos que produce una orden SOUND en esta forma sencilla. Lo haremos dotando 
al sonido de una envolvente: una gráfica que define cómo evoluciona la intensidad del 
sonido a lo largo del tiempo. Las notas producidas por los instrumentos musicales tie¬ 
nen una fase inicial de ataque en la que el volumen sube muy deprisa; después se man¬ 
tiene a un nivel algo inferior hasta que finalmente decae gradualmente a cero. En el 
ordenador se puede dar una envolvente de este tipo a las notas producidas por la orden 
SOUND. La instrucción con la que se programa la envolvente es ENV. Veamos un 
ejemplo sencillo: 

ENV 1,5,3,4,5,-3,8 

SOUND 1,142,0,0,1 

La instrucción ENV se debe ejecutar antes que la SOUND que la utiliza. Para invocar 
una envolvente en una instrucción SOUND se pone como quinto parámetro de éste el 
número de referencia de la envolvente, en este caso el 1, que es el número con que se 
la creó en la instrucción ENV. Los parámetros de ENV describen tanto la duración co¬ 
mo el volumen de la nota, de modo que en SOUND podemos poner 0 en lugar de los 
datos de duración y volumen. La envolvente del ejemplo anterior hace que la nota crez¬ 
ca en 5 etapas, en cada una de las cuales el volumen aumenta en 3 unidades y cuya dura¬ 
ción es de 4 centésimas de segundo. Después se especifica que el volumen debe decaer 
en 5 etapas, -3 unidades en cada una, siendo la duración de cada etapa 8 centésimas 
de segundo. Es decir, el primer parámetro de ENV es el número de referencia de la en¬ 
volvente y va seguido por grupos de tres números. Dentro de cada grupo, el primer pa¬ 
rámetro es el número de escalones de variación del volumen; el segundo, la amplitud 
de esos escalones; y el tercero, su duración. La duración total de cada sección será igual 
al producto del primer parámetro (número de escalones) por el tercero (duración de 
cada escalón). El aumento o disminución total del volumen es igual al producto del pri¬ 
mer parámetro por el segundo (variación del volumen por escalón). La duración total 
de una envolvente es la suma de las correspondientes a las secciones que la integran. 

En el ejemplo anterior, SOUND fijaba en 0 el volumen inicial de la nota. Pero esto 
no tiene que ser necesariamente así. En el siguiente ejemplo el volumen decrece desde 
el valor inicial 15 y luego vuelve a subir: 

ENV 2,5,-2,1,20,0,1,10,1,1 

SOUND 1,142,0,15,2 
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El número de esta envolvente es el 2. Consta de tres secciones. En la primera el volumen 
se reduce en 5 escalones de -2; es decir, varía a través de 5 etapas y en cada una se 
reduce en 2 unidades. La duración de cada etapa es de 1 centésima de segundo. La se¬ 
gunda sección tiene 20 etapas en las que no varía el volumen (0) y cada una de las cuales 
dura 1 centésima de segundo. Finalmente, la tercera sección consta de 10 etapas, con 
un incremento de volumen de 1 unidad y duración de 1 centésima de segundo cada una. 

La instrucción SOUND especifica un volumen inicial de 15; al final de la primera sec¬ 
ción ha decrecido hasta 5; se mantiene a ese nivel durante 20 centésimas de segundo 
y luego vuelve a crecer hasta alcanzar el nivel 15. 

Para mejor visualizar y diseñar la forma de las envolventes conviene dibujarlas en un 
papel milimetrado y leer en él los valores de los parámetros requeridos. En las dos figu¬ 
ras siguientes mostramos las dos envolventes definidas hasta ahora: 


Variación 
relativa de 
volumen 



4 • a « X M » « 3* 



m u*wtod«a da 
TC 1/100 «fundos 


NUMERO DE ESCALONES: 5 
ALTURA DE ESCALON: 3 
DURACION DE ESCALON: 4 


NUMERO DE ESCALONES: 5 
ALTURA DE ESCALON: -3 
DURACION DE ESCALON: 8 



El máximo número de secciones que se puede incluir en una envolvente es 5; como cada 
sección requiere 3 parámetros, la instrucción ENV puede llegar a tener 16 parámetros 
en total, contando el primero, que indica cuál de las 15 envolventes posibles se está de- 
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finiendo. Podemos imaginar los números de volumen como dispuestos en círculo; si 
vamos subiendo de nivel y sobrepasamos el 15, volvemos al 0; análogamente, si intenta¬ 
mos descender por debajo del 0, volvemos al 15. Por ejemplo, en 

ENV 3,9,5,20 
SOUND 1,142,0,0,3 

la envolvente consta de una sola sección de 9 etapas, cada una de las cuales incrementa 
el volumen en 5 unidades y dura 20 centésimas de segundo. Al terminar la tercera eta¬ 
pa, el volumen ha subido de 0 a 15; en la cuarta etapa volverá a 4; en la quinta a 9, 
etc. El proceso está ilustrado en la siguiente figura: 


Variación 
relativa de i 
volumen 

15 - 

14 

13 - 


10 - 

9 - 

8 - 

5 - 

4 * 

3 - 


I "T i I i i r 

60 80 90 100 120 140 160 


NUMERO OE ESCALONES: 9 
ALTURA OE ESCALON: 5 
OURACION DE ESCALON: 20 


180 unidades do 

1/100 segundos 


El margen de valores para el número de escalones es de 0 a 127. En cada uno el valor 
puede variar entre -128 y +127 (los valores negativos representan disminución). La 
duración de cada escalón puede ser de entre 0 y 255 (centésimas de segundo). 

Ya sabemos cómo variar el volumen de una nota. Ahora podemos estudiar cómo se 
define la variación de su tono con el tiempo para producir efectos tales como el 
‘vibrato’. 

El método es muy parecido al de las envolventes de volumen. Las envolventes de tono 
se definen con la instrucción ENT. Por ejemplo: 

ENT 1,5,1,1,5,-1,1 
SOUND 1,142,10,15,,1 

Las envolventes de tono se invocan con la instrucción SOUND poniendo en ésta como 
sexto parámetro el número de referencia de la envolvente. La instrucción ENT tiene 
que ser ejecutada antes que la SOUND que la utiliza. 
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Este primer ejemplo de ENT define la envolvente de tono número 1. La primera sección 
consta de 5 etapas; en cada una el periodo de tono crece en 1 unidad; cada una dura 
1 centésima de segundo. La segunda sección consta de 5 etapas; la variación del periodo 
de tono en cada una de ellas es -1 (descenso); la duración de cada etapa es de 1 centési¬ 
ma de segundo. La duración total es, pues, 5+5 = 10 centésimas de segundo. Obsérvese 
que esta duración ha sido especificada en SOUND, ya que la duración de la envolvente 
de tono no determina la duración de la nota (mientras que sí lo hace la envolvente de 
volumen). Si la duración especificada en SOUND es menor que la de la envolvente, 
el final de ésta se perderá. Si es mayor, el final de la nota se ejecutará a tono constante. 
Esto último es también aplicable a las envolventes de volumen. 

(Nótese la ausencia del número de envolvente de volumen en la última instrucción 
SOUND, debida a que aún no hemos definido una envolvente de volumen para este 
sonido.) 

Las envolventes de tono normalmente duran menos que la nota. Se puede hacer que 
la envolvente se repita mientras la nota está sonando. Para ello se especifica un número 
de envolvente negativo, cuyo valor absoluto se cita en la instrucción SOUND: 

ENT -5,4,1,1,4,-1,1 
SOUND 1,142,100,12,,5 

Esta repetición de la envolvente produce el efecto ‘vibrato’. Cuando se diseñan envol¬ 
ventes de tono, es conveniente que el tono varíe simétricamente con respecto al valor 
inicial, de forma que al repetir la envolvente el tono no se desvíe demasiado con respec¬ 
to al valor central. Pruebe el siguiente sonido: 

ENT -6,3,1,1 

SOUND 1,142,90,12,,6 

Habrá observado que la frecuencia ha disminuido drásticamente. Esto ha ocurrido por¬ 
que la envolvente impone un aumento del periodo de tono de 3 unidades y se repite 
30 veces (90/3). No obstante, ese efecto se puede aprovechar para imitar trinos y 
sirenas: 

ENT -7,20,1,1,20,-1,1 
SOUND 1,100,400,12,,7 

ENT -8,60,-1,1,60,1,1 
SOUND 1,100,480,12,,8 

Se pueden definir hasta 15 envolventes de tono, con números de referencia del 1 
al 15; los números negativos indican que la envolvente se repite. Para cada sección, el 
número de escalones puede estar entre 0 y 239. La variación del periodo de tono en 
cada escalón puede ser de entre -128 y +127. La duración de cada escalón puede ser 
de entre 0 y 255 (centésimas de segundo). Cada envolvente puede tener hasta 5 
secciones. 
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El último parámetro que se puede incluir en la instrucción SOUND, el séptimo, carac¬ 
teriza el nivel de ruido que se añade al sonido. Obsérvese que sólo hay un canal de ruido 
y que, por consiguiente, cada vez que se especifica un nivel de ruido se anula la anterior 
especificación. 

El ruido se puede mezclar con un tono, pero también se lo puede programar por separa¬ 
do, para lo cual se debe poner un 0 como periodo de tono en SOUND. Esto es útil 
para imitar ruidos de percusión: 

ENT -3,2,1,1,2,-1,1 
ENV 9,15,1,1,15,-1,1 

FOR a=l TO 10:SOUND 1,4000,0,0,9,3,15:NEXT 

Un ruido como éste puede servir de base para imitar el de una locomotora. Obsérvese 
que hemos combinado los dos tipos de envolvente y el ruido. En SOUND hemos puesto 
0 para los parámetros de duración y de volumen, por lo que estas características quedan 
controladas por las envolventes de volumen. 

Como ya estamos en condiciones de utilizar SOUND, ENV y ENT a plena potencia, 
vamos a estudiar algunas otras órdenes y funciones. 

Como el lector recordará, al describir el primer parámetro de SOUND dijimos que si 
le sumábamos el número 64 el sonido quedaba ‘retenido’ en la cola, y que no sonaría 
mientras no lo liberásemos. La forma de liberarlo es ejecutar la orden RELEASE. Esta 
palabra va seguida de un número cuyos bits determinan a qué canales afecta la orden: 

4 significa canal C 
2 significa canal B 
1 significa canal A 

Los canales se combinan sumando los números correspondientes. Así, para liberar el 
sonido de los tres canales la orden que se requiere es: 

RELEASE 7 

donde 7=1 +2+4. Si no hay sonido retenido en ningún canal, la orden no tiene efecto. 
Pruebe lo siguiente: 

SOUND 1+64,90 
SOUND 2+64,140 
SOUND 4+64,215 

RELEASE 3:FOR t=l TO 1000:NEXT:RELEASE 4 


No se produce ningún sonido mientras no se ejecuta la primera orden RELEASE, la 
cual libera los sonidos de los canales A y B. Después de una pausa, la segunda orden 
RELEASE libera el canal C. 

Hay otro método para sincronizar sonidos. Cuando se retiene un sonido sumando 64 
a su número de situación de canal, no sólo queda él retenido, sino todos los que se en- 
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víen a continuación a ese mismo canal. Si se envían más de cuatro sonidos a una cola 
que está retenida, la máquina queda bloqueada hasta que se libere la cola (posiblemente 
al ejecutarse una subrutina invocada por AFTER o EVERY). Ésta no es una buena for¬ 
ma de gestionar los sonidos, ya que la máquina se detendrá cada vez que se llene una 
cola. Lo mismo ocurre si se ejecutan varias órdenes SOUND seguidas. Pruebe este 
programa: 

10 FOR a=l TO 8 
20 SOUND l,100*a,200 
30 NEXT 
40 PRINT"hala" 
run 


El texto no aparece en la pantalla inmediatamente, sino al cabo de tres segundos. Esto 
ocurre porque el programa no puede llegar a la línea 40 mientras no haya espacio libre 
en la cola para almacenar todos los sonidos. 

BASIC dispone de un mecanismo de interrupción, similar al que se utiliza en AFTER, 
EVERY y ON BREAK GOSUB, mediante el cual se puede hacer que se ejecute una 
subrutina cada vez que queda espacio libre en una cola especificada: 

10 a=0 

20 ON SQ(1) GOSUB 1000 
30 PRINT a; 

40 GOTO 30 

1000 a=a+10 

1010 SOUND 1,a,200 

1020 IF a<200 THEN ON SQ(1) GOSUB 1000 
1030 RETURN 


Observe que el programa no se detiene. La instrucción SOUND no se ejecuta mientras 
no hay espacio libre en la cola del canal A (1), hecho que detecta la orden ON SQ(1) 
GOSUB de la línea 20. Esta orden inicializa un mecanismo de interrupción que ejecuta 
la subrutina cada vez que queda un hueco libre en la cola especificada. El mecanismo 
tiene que ser reinicializado cada vez que se ejecuta la subrutina (línea 1020). En este 
ejemplo, la reinicialización sólo se produce si a es menor que 200. 

En un programa que lleve a cabo acciones relativamente lentas (por ejemplo, mover 
objetos por la pantalla), se puede poner música de fondo programando una subrutina 
que ejecute una nota cada vez que quede un hueco libre en la cola. De esta forma se 
asegura que el programa no se va a detener en espera de que quede espacio en la cola. 
Si los valores de las notas están contenidos en listas DATA, se puede hacer que la sub- 
rutina de sonido deje de reinicializarse cuando los datos estén a punto de agotarse. 

El parámetro que va entre paréntesis en la instrucción ON SQ( 1 GOSUB puede ser 
1, 2 o 4, dependiendo del canal cuya cola se desee examinar. 
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Hay una función, SQ( ), que se puede utilizar para determinar el estado de los canales 
de sonido. Su parámetro puede ser 1, 2 o 4. El valor generado por la función se inter¬ 
preta bit a bit según la siguiente tabla: 


Bit Decimal Significado 


0 , 1 , 2 

3 

4 

5 

6 
7 


1 a 4 Número de huecos libres en la cola 

8 La primera nota de la cola está marcada para sincronizar con el canal A 

16 La primera nota de la cola está marcada para sincronizar con el canal B 

32 La primera nota de la cola está marcada para sincronizar con el canal C 

64 La primera nota de la cola está retenida (está a 1 el bit de retención) 

128 En este momento está sonando una nota 


Pruebe el siguiente ejemplo: 

10 SOUND 2,200 
20 x=SQ(2) 

30 PRINT BIN$(x) 
run 

La línea 30 escribe el número binario 10000100 . El bit 7 está a 1, lo que indica que en 
el canal había una nota sonando cuando se ejecutó la línea 20. Los tres dígitos menos 
significativos son 100 ; equivalen al número decimal 4 , y esto quiere decir que había 
cuatro espacios libres en la cola. Esta función examina la situación del canal en un pun¬ 
to específico del programa; en cambio, OIM SQ() GOSUB examina la cola, y reacciona 
en consecuencia, en un punto indeterminado. 

Hasta ahora todos los ejemplos han consistido en hacer sonar una o dos notas. Si se 
va a ejecutar un grupo de notas independientes, por ejemplo las de una melodía, sus 
características se pueden guardar en líneas DATA, para luego leerlas con READ e in¬ 
troducirlas en SOUND: 

10 FOR octava=-l TO 2 

20 FOR x=l TO 7:REM notas por octava 

30 READ nota 

40 SOUND 1,nota/2foctava 
50 NEXT 
60 RESTORE 
70 NEXT 

80 DATA 426,379,358,319,284,253,239 
run 

El ejemplo final de esta sección se basa en este concepto. En los canales A y B se hace 
sonar una melodía con ritmo, utilizando la sincronización. Este ejemplo muestra cómo 
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utilizar las listas DATA para incluir información sobre nota, octava, duración y 
sincronización: 


10 REM la linea 190 da la melodía en clave de agudos 
20 REM la linea 200 da la melodía en clave de graves 
30 DIM escala%(12):FOR x%= 1 TO 12:READ escala%< x%):NEXT 
40 canal1%=1:READ canal 1$:canal2%=2:READ canal2$ 

50 CLS 

60 ve1ocid ad%=12 

70 escala$=" a-b b c+c d-e e -F+ + g+g" 

80 ENV 1,2,5,2,8,-1,10,10,0,15 
90 ENV 2,2,7,2,12,-1,10,10,0,15 
100 ENT -1,1,1,1,2,-1,1,1,1,1 
110 DEF FNm$(s$,s)=MID$(s$,s,1) 

120 canal1%=1:GOSUB 200 

130 canal2%-l:GOSUB 380 

140 IF canall%+canal2%>0 THEN 140 

150 END 

160 DATA 8¿777,8s70c , 6í6a7, B¿647,8*5ed , Íí598 
170 DATA Rí 547,Bt4-f c , &4b4, B¿470, Íí 43 1, Íe3-f 4 

180 DATA 4cr4-F4-fl-FlglAl-B2C2-F4g2glAl-B6A2Crl-flgl-Flglal- 
blAl-b2C2g2A2g2f Igla2g2-f 6e2c2e2c2g2e2c 1 - BlA2g2+4e4d 
8c4-f 3-f Ic2d4-b2-f r2-B2A2g2-f 6e2gr4C4-Blal-F 1 -blg2c2-b4a 
4g4-fr6A2A2-B4-B2Ar2-B2A2g2-f6e2g4C4-BlAl-f l-Blg2C2-B4 
A4g8-f . 

190 DATA r4-F4-F8-f 4e4c4f r8+4e2-f2e4d2e2d8c8c6e2-F4g4g8e4-F3-f 
Ic4dr8g4cr4e4c6-f 2d4c4c8-fr8-e4dr8g8c4e4c6-F2d4c4c8-f. 
200 REM enviar sonido al canal A 
210 pl$=FNm$(canal 1$,canal 1%) 

220 IF pl$<>"r" THEN rl%=0:GOTO 240 

230 rl%=16:canall%=canal1%+1:pl$=FNm$(canal 1$,canal 1%) 
240 IF pl$="." THEN canal1%=0:RETURN ELSE ll%=VAL(pl$) 
250 canall%=canal1%+1 
260 nl$=FNm$(canal 1*,canal 1%) 

270 canall%=canal1%+1 

280 IF nl$="+" OR 01*="-" THEN 350 

290 nl$=" “+nl$ 

300 ndl%= <1 + INSTR(escalad,LOWERÍ(nl$)))/2 

310 IF ASC(RIGHT*(nl$,1))>96 THEN ol%=8 ELSE ol%=16 

320 SOUND 1+r1%,escala%(ndl%)/ol%,velocidad%#l1%,0,1,1 

330 ON SQ(1) GOSUB 200 

340 RETURN 

350 nl$=nl*+FNm$(canal 1$,canal 1%) 

360 canall%=canal1%+1 
370 GOTO 300 

380 REM enviar sonido al canal B 
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390 p2*=FNm$(canal2*,canal2%) 

400 IF p2$< >"r" THEN r2%=0:GOTO 420 

410 r2%=8:canal2%=canal2%+l:p2$=FNm$(canal2$,canal2%) 
420 IF p2*=“." THEN canal2%=0:RETURN ELSE 12%=VAL(p2*) 
430 canal2%=canal2%+l 
440 n2*=FNm$(canal2*,canal2%) 

450 canal2%=canal2%+l 

460 IF n2*="+” OR n2*=“- H THEN 530 

470 n2$=" " + n2* 

480 nd2%=(1+INSTR(escala$,LOWERÍ(n2$)))/2 

490 IF ASC<RIGHT*<n2*,1))>96 THEN o2%=4 ELSE o2%=8 

500 SOUND 2+r2%,escalad<nd2%)/o2%,velocidad%*l2%,0,1,2 

510 ON SQ(2) GOSUB 380 

520 RETURN 

530 n2<¡=n2$+FNm$(canal2$,canal2%) 

540 canal2%=canal2%+l 

550 GOTO 480 

run 


Dicho gráficamente ... 


En esta sección vamos a repasar las fundones gráficas del ordenador. Iremos constru¬ 
yendo paso a paso un primer ejemplo para ilustrar el funcionamiento de las diversas 
instrucciones. 

Para empezar, dividimos la pantalla en una ventana de texto (línea 40) y una ventana 
gráfica (línea 30). Además, establecemos el modo de pantalla y asignamos tintas parpa¬ 
deantes a dos plumas (líneas 20): 

10 REM MASK y TAG en una ventana 
20 MODE 1:INK 2,10,4:INK 3,4,10 
30 ORIGIN 440,100,440,640,100,300 
40 WINDOW 1,26,1,25 
50 CLG 2 


Si ejecuta este programa, podrá ver un cuadrado parpadeante al lado derecho de la 
pantalla. Este cuadrado ha sido borrado con la pluma número 2 (magenta/cyan) por 
la línea 50. El origen de coordenadas ha sido trasladado al extremo inferior izquierdo 
del cuadrado. La orden MODE ha llevado el cursor al origen de coordenadas (X=0, 
Y=0); podemos dibujar una diagonal en el cuadrado con la línea 60: 

60 DRAW 200,200,3 
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Ejecute el programa y observe el efecto. Añada ahora: 

80 MOVE 0,2:FILL 3 

La línea 80 lleva el cursor al interior de una de las dos mitades del cuadrado y la rellena 
con la pluma 3. El límite del recinto que se rellena es el borde de la ventana gráfica 
(que en este caso es también el del cuadrado) y cualquier recta que se haya dibujado 
con la pluma gráfica actual (la 3) o con la que se utiliza para rellenar (también la 3). 

Ejecute esta versión del programa. 

Para comprobar lo dicho acerca de los límites del recinto, añada la siguiente línea 70. 
Observe que la única razón para que el rellenado se limite a una mitad del cuadrado 
es que la pluma de rellenar es el misma con la que se dibujó la diagonal. 

70 GRAPHICS PEN 1 
run 

Modifique la línea 80 para rellenar con la pluma 1 y ejecute el programa para compro¬ 
bar esto último. Cuando lo haya hecho, vuelva a dejar la línea 80 como estaba (FILL 3). 

Añada ahora las líneas siguientes para dibujar un cuadrado: 

100 MOVE 20,20 
110 DRAW 180,20 
120 DRAW 180,180 
130 DRAW 20,180 
140 DRAW 20,20 
run 

Este cuadrado ha sido dibujado con la pluma 1 a causa de la línea 70. Si omitiéramos 
la línea 70, tendríamos que incluir ‘.V como tercer parámetro de MOVE en la línea 
100, o bien en el DRAW de la línea 110, para pedir al ordenador que cambiase la pluma 
gráfica. 


Líneas discontinuas 


Las rectas que dibujemos no tienen que ser necesariamente de trazo continuo, sino que 
pueden ser de puntos. La orden MASK nos permite definir el tamaño de los puntos. 
La forma que definamos se repetirá cada 8 pixels. Si la primera línea deja incompleto 
el último grupo de 8 pixels, la siguiente empezará dibujando los puntos restantes. Con 
una nueva orden MASK (quizá con el mismo parámetro) se hace que el siguiente dibu¬ 
jo empiece por el principio del grupo. 
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El parámetro de MASK es en realidad un byte binario en el que los bits que están a 
1 indican que el pixel correpsondiente se debe iluminar con la tinta de la pluma. En 
nuestro ejemplo vamos a poner el parámetro directamente en forma binaria (identifica¬ 
da por el prefijo &X); queremos que cada grupo de 8 pixels tenga cuatro pixels ilumina¬ 
dos en el centro y dos apagados a cada lado. De esta forma las rectas serán de trazos, 
con cuatro pixels encendidos y cuatro apagados. Añada la línea siguiente: 

90 MASK &X00111100 
run 

Pero vemos que el enlace en los rincones no es como nos gustaría. Lo que ocurre es 
que los pixels de las esquinas se dibujan dos veces: una al final de una recta y otra al 
principio de la siguiente. Una forma un tanto torpe de resolver este problema es incluir 
las líneas: 

115 MOVE 180,22 
125 MOVE 178,180 
135 MOVE 20,178 
RUN 

Pero es más fácil poner ‘,0’ como segundo parámetro de MASK para indicar que no 
se debe dibujar el primer punto de cada línea. Modifique la línea 90: 

90 MASK &X00111100,0 

y borre las que ya no necesitamos: 

115 

125 

135 

Ejecute el programa y observe que el cuadrado vuelve a ser simétrico. Si hubiéramos 
puesto ‘.V como segundo parámetro de MASK, todas las rectas serían de trazo conti¬ 
nuo con el primer pixel encendido. 

Ahora observe los huecos entre trazos. En el triángulo inferior derecho hay algo que 
no está en el otro: es el papel gráfico, al que se ha dado el número 2 con la orden CLG 
2 de la línea 50, pero que es invisible en el triángulo superior porque es del mismo color 
que el fondo. Modifique la línea 50: 

50 CLG 2¡GRAPHICS PAPER 0 


y vuelva a ejecutar el programa. El papel ya es visible en todos los bordes del cuadrado. 

Podemos hacer que el papel gráfico sea invisible (‘transparente’). Esto significa que 
cuando dibujemos líneas de trazos, los huecos no taparán lo que haya debajo. Los di- 
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bujos se hacen transparentes añadiendo M’ a la orden GRAPHICS PEN. (Para hacer¬ 
los opacos el parámetro debe ser ‘,0’)- Modifique la línea 70: 

70 GRAPHICS PEN 1,1 
run 

y observe el resultado. 

Además de dibujar rectas (y puntos sueltos), podemos escribir textos en la posición del 
cursor gráfico. La ventaja con respecto al método normal de escritura de textos es que 
así podemos situar los textos con mayor precisión (justamente en el pixel deseado, en 
vez de a saltos de 8 pixels). 

Para escribir caracteres por este método, el cursor se pone en el lugar en el que quere¬ 
mos que quede el punto superior izquierdo del carácter, después ejecutamos la orden 
TAG (o TAG #x para otros canales) seguida de las órdenes PRINT normales. El cursor 
gráfico avanza automáticamente 8 pixels hacia la derecha cada vez que se escribe un 
carácter. Añada las siguientes líneas: 

160 MOVE 64,108 
170 TAG 

180 PRINT "ELENA" 

190 TAGOFF 
run 

(BASIC envía siempre sus mensajes a la ventana de texto, cualquiera que sea la situa¬ 
ción del conmutador TAG/TAGOFF, pero es una buena costumbre cancelar TAG en 
cuanto se haya terminado de escribir en la pantalla gráfica.) 

Pero ¿qué son las flechas que han salido a la derecha del nombre? Muy sencillo: el códi¬ 
go de retorno del carro, CHR${13), y el de avance de línea, CHR$(10), en versión gráfi¬ 
ca. Las rutinas del firmware que escriben en la pantalla gráfica traducen los 32 prime¬ 
ros caracteres ASCII a sus versiones gráficas [igual que si se los enviara a la pantalla 
de texto precedidos de CHR${1)]. La razón es que los 32 códigos de control normal¬ 
mente sólo tienen utilidad en la pantalla de texto; por lo mismo, si sobrepasamos el 
borde derecho al escribir en la pantalla gráfica, el ordenador lo permite y no salta auto¬ 
máticamente a la línea siguiente. 

Los signos de retorno del carro y de avance de línea se suprimen poniendo un punto 
y coma al final de la instrucción PRINT: 

180 PRINT "ELENA"; 
run 

El texto enviado a la pantalla gráfica usando TAG depende de las mismas órdenes 
GRAPHICS PEN que los dibujos. Así, en el ejemplo, el nombre lo escribe GRA¬ 
PHICS PEN 1, y es transparente. La orden 
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150 GRAPHICS PEN 1,0 
run 

selecciona papel opaco, mientras que 

150 GRAPHICS PEN 0,1 
RUN 

escribe con pluma número 0 en modo transparente. 

Borre la línea 150 y ejecute el programa. La pluma gráfica vuelve a ser 1 en modo trans¬ 
parente (línea 70). 


Caracteres transparentes 


Hay un código de control que permite escribir caracteres en la pantalla de texto en mo¬ 
do transparente. Añada las siguientes líneas: 

200 PRINT#2,CHR*<22)!CHR$<1) 

210 LOCATE #2,32, 14: PRINT#2, * •JHHHHHfr " 

220 LOCATE #2,32,14:PRINT#2,■_* 

230 PRINT#2,CHR*<22);CHR*<0) 
run 

La línea 200 pone el canal #2 en modo transparente. Observe que los signos de subrayar 
se funden con los asteriscos sin borrarlos. De esta manera se pueden formar caracteres 
compuestos, incluso en varios colores. La línea 230 vuelve a poner el canal #2 en modo 
opaco. 


Modos de tinta 

Es posible dibujar gráficos de tal modo que la tinta con la que se dibuja interaccione 
con la ya presente en la pantalla. El número de tinta final para cada punto se calcula 
realizando una operación lógica con la antigua tinta del pixel y la tinta de la pluma grá¬ 
fica. La operación puede ser AND, OR o XOR. El modo de tinta se puede especifi¬ 
car como cuarto parámetro en las instrucciones DRAW/DRAWR, PLOT/PLOTR 
o MOVE/MOVER, o bien enviando a la pantalla los códigos de control 
CHR$(23)+CHR$(<modo>). En cualquier caso, el modo es 1 para XOR, 2 para AND 
y 3 para OR. El valor 0 restaura el modo normal, en el que se dibuja sin interacción. 

En el siguiente ejemplo ilustramos la combinación XOR. Este modo se utiliza habitual¬ 
mente en los denominados ‘gráficos de tortuga’, porque tiene la propiedad de que si 
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se dibuja algo dos veces se restaura la situación original. La rutina que dibuja el cua¬ 
drado se ejecuta dos veces (en las líneas 110 y 130), así como la escritura con TAG (lí¬ 
neas 170 y 190). Las órdenes FRAME introducen un retardo suficiente como para que 
el efecto sea visible. Nótese que las órdenes de la línea 90 no llevan primer parámetro. 
Esto es correcto tratándose de estas órdenes concretas; lo hemos hecho así para no mo¬ 
dificar las características correspondientes. 

El tercer parámetro (,1) de la orden MOVE de la línea 220 selecciona la pluma gráfica 
número 1, anulando así la ‘3’ seleccionada en la línea 60. El modo XOR se establece 
en el cuarto parámetro de la orden DRAWR de la línea 230. Obsérvese que también 
aquí hemos omitido un parámetro. 

Podemos observar una consecuencia del efecto del segundo parámetro de MASK su¬ 
primiendo esta orden de la línea 90. Los rincones del cuadrado desaparecen porque se 
dibujan dos veces (al final de una recta y al principio de la siguiente) con XOR. 

10 REM modos de Unta XOR 

20 MODE 1:INK 2,10:INK 3,4 

30 ORIGIN 440,100,440,640,100,300 

40 WINDOW 1,20,1,25 

50 CLG 2:GRAPHICS PAPER 0 

60 DRAW 200,200,3 

70 MOVE 2,0:FILL 3 

80 ORIGIN 440,0,440,640,0,400 

90 GRAPHICS PEN ,1:MASK ,0 


100 

FOR y=60 TO 318 

STEP 2 

110 

GOSUB 220 


120 

FRAME:FRAME 


130 

üúSUB 220 


140 

NEXT 


150 

TAG 


160 

FOR y=60 TO 318 

STEP 2 

170 

MOVE 96,y:PRINT 

CHR*<224)! 

180 

FRAME:FRAME 


190 

MOVE 96,y:PRINT 

CHR$<224){ 

200 

NEXT 


210 

END 


220 

MOVE 90,y,1 


230 

DRAWR 20,0,,1 


240 

DRAWR 0,20 


250 

DRAWR -20,0 


260 

DRAWR 0,-20 


270 

run 

RETURN 
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Animación 


Se puede dar ilusión de movimiento cambiando adecuadamente los colores asignados 
a las tintas. Aunque el contenido de la memoria de la pantalla no se modifica, los dibu¬ 
jos parecen moverse. Se da un ejemplo de este método en el programa de demostración 
que se suministra con el disco maestro del sistema (RUN"disc"). Sin embargo, el sim¬ 
ple cambio de colores de ese ejemplo no es suficiente cuando las formas móviles tienen 
que solaparse. En el siguiente ejemplo recurrimos al modo OR para escribir los núme¬ 
ros 1 al 4 en la pantalla. (La forma se determina examinando el carácter que está en 
el extremo inferior izquierdo de la pantalla y ampliando lo que allí se encuentra.) Los 
números se escriben sucesivamente con las tintas 1, 2, 4 y 8 y con el modo OR activado 
(en este caso mediante una sucesión de códigos de control, línea 50). 

El bucle que empieza en la línea 160 realiza una rotación de los colores de la paleta 
mediante una fórmula matemática que hace que se ilumine un número cada vez. Las 
tintas se establecen inspeccionándolas sucesivamente y determinando si contienen el 
componente binario que estamos buscando. Por ejemplo, el 3 fue dibujado con tinta 
4; por lo tanto, para visualizar el número 3 debemos dar un color visible a todas las 
tintas cuyo número contenga un 4 binario. Esas tintas son: 

4II1M), 5(1111), 6(1111), 7(1111), 12(1111), 13(1111), 1411111), 1511111) 

En una aplicación práctica se calcularía qué tintas se deberían cambiar en cada etapa, 
y las líneas 180 a 200 se sustituirían por una rutina más rápida. 

10 REM animación con tintas 

20 ON BREAK GOSUB 220 

30 FOR i=l TO 151INK i,26:NEXT 

40 m(l)=l:m(2)=2:m(3)=4:m(4)=8 

50 MODE 0:PRINT CHR*(23)JCHR*(3) i :TAG 

60 FOR p=l TO 4 

70 GRAPHICS PEN m(p),l 

80 LOCATE #1,l,25:PRINT«l,CHR*(48+p)5 

90 FOR x=0 TO 7 

100 FOR y=0 TO 14 STEP 2 

110 IF TEST(x*4,y)=0 THEN 140 

120 MOVE <x+6)*32,<y+6)*16:PRINT CHR*(143)5 

130 MOVE <x+6>*32,(y+7)*16:PRINT CHR*(143)J 

140 NEXT y,x,p 

150 LOCATE #1,1,25:PRINT«1, b ■ ; 

160 FOR p=l TO 4 

170 FOR i=l TO 25:FRAME:NEXT 
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180 FOR i=0 TO 15 

190 IF <i AND m(p))=0 THEN INK i,0 ELSE INK i,26 

200 NEXT i,p 

210 GOTO 160 

220 INK 1,26 

run 


Sprites 


En el ejemplo anterior hemos visto cómo se da ilusión de movimiento cambiando los 
colores después de escribir con las tintas 1, 2, 4 y 8. Un efecto muy distinto se consigue 
si se utilizan las mismas tintas pero se manejan los colores de forma diferente. Este 
efecto se conoce con el nombre de ‘planos de color’; lo ilustramos en el siguiente 
ejemplo. 


10 REM montabas 

20 DEFINT a-s.u-z 

30 INK 0,l:INK 1,26 

40 INK 2,ó:INK 3,6 

50 FOR i=4 TO 7:INK i,9:NEXT 

60 FOR i=8 TO 15:INK i,20:NEXT 

70 mode 0 :deg:origin 0,150:clg:move 0,150 

80 FOR x=16 TO 640 STEP 16 
90 DRAW x,COS<x)*150+RND*100,4 
100 NEXT 

110 MOVE 0,0:FILL 4 
120 cx=175:GOSUB 320 
130 cx=525:GOSUB 320 

140 SYMBOL 252,0,0,&cC,&clF, 6c30, 8c7F, 8cFF 
150 SYMBOL 253,0,6, BtE, 6cF2,2,8tF2, 8cFE 
160 SYMBOL 254,0, Íí60,8c70,8í7F,6£7F,8c7F,8c 7F 
170 SYMBOL 255,0,0,0, &cF8,8tEC , 6cFE, BtFF 
180 pr$=CHR*<254)+CHR*<255) 

190 pl*=CHR*<252)+CHRÍ1253) 

200 TAG:t=TIME 

210 FOR x=-32 TO 640 STEP 4 

220 x2=<<608-x)*2)MOD 640:h1=RND*10:hr=50*SIN(x) 
230 GRAPHICS PEN 8,1:M0VE x,100+hr,,3:PRINT pr$5 
240 GRAPHICS PEN 2,l:M0VE x2,115+h1,,3:PRINT pl$; 
250 IF (TEST(x2-2,115+hl-12) AND 8)=8 THEN 380 
260 IF TIME-t<30 ThEN 260 
270 FRAME:t=TIME 

280 GRAPHICS PEN 7,1:M0VE x,100+hr,,2:PRINT pr$! 
290 GRAPHICS PEN 13,1:M0VE x2,115+hl,,2:PRINT pl$! 
300 NEXT 
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310 GOTO 210 

320 MOVE ex,100 

330 FOR x=0 TO 360 STEP 10 

340 DRAW cx+SIN(x)*50+10*RND,100+COS(x)*25+10*RND,1 
350 NEXT 

360 DRAW ex,100:MOVE cx,90:FILL 1 

370 RETURN 

380 ENT -1,1,1,1 

390 SOUND 1,25,400,15,,1,15 

400 FOR y=100+hr TO -132 STEP -2 

410 GRAPHICS PEN 7,1:M0VE x,y,,2:PRINT pr*; 

420 GRAPHICS PEN 8,1:M0VE x,y-2,,3:PRINT pr$5 
430 NEXT 
440 GOTO 70 


Para explicar cómo funciona, una vez más tenemos que expresar los números de INK 
en binario. Empezando por el número máximo (el 15), asignamos el color cyan a todas 
las tintas que tienen activo el bit del ‘8’ (de la 15 a la 8). Después damos el color verde 
a todas las que tienen activado el bit del ‘4’ (de la 7 a la 4). Las tintas 2 y 3 tienen a 
1 el bit del ‘2’ y les asignamos el color rojo. Finalmente, asignamos el color blanco a 
la tinta 1 y dejamos la tinta 0 en azul. 

Los gráficos se envían a la pantalla en modo OR (líneas 230 y 240). El color que se 
ve en la pantalla en cada pixel está determinado por el bit más significativo del resultan¬ 
te en ese punto. Así pues, una imagen que esté en un plano ‘más significativo’ predomi¬ 
na sobre otra que esté en un plano ‘menos significativo’, pero el fondo se conserva y 
vuelve a ser visible si se retira la imagen ‘más significativa’. La forma de retirar la ima¬ 
gen consiste en dibujarla en modo AND: las tintas 7, 11, 13 y 14 borran las tintas 8, 
4, 2 y 1, respectivamente (líneas 280 y 290). 


Gráficos con el segundo banco de 64K de RAM 


Para concluir este capítulo ofrecemos un programa ‘diseñador de pantallas gráficas’ 
que utilizan los 64K adicionales de RAM. 

10 ’Disefrador de pantallas, por David Radisic 
20 ’ copyright (c) AMSOFT 1985 
30 ’ 

40 ’No olvide ejecutar BANKMAN antes que este programa 
50 ’************************************************** 
60 ’ 

70 ON ERROR GOTO 2740 
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80 DEFINT a-x 

90 MODE 1:ch=127:ord=l:pn(0)=0:pn(1)=26:pn(2)=15:pn(3)=6: 

pn(4)=0!pn=l:norx=l:menu=l:zzz=HIMEM 
100 DIM orden*(22) 

110 norxí(0)="Normal":norx*(1)= "XOR ":norx*(2)="Transp" 

:norx*(3)="XOR 

120 RESTOREJREAD ords*(l) ,ords*(2) :ord*=CHR*<16) + CHR*(IS<7F 
)+ordsí(1)+ords*(2) 

130 READ ordnum:FOR i=l TO ordnum:READ orden*(i):NEXT 
140 READ parar*:IF parar*<>"**" THEN ord*(ord)=parar*:ord 
=ord+l:GOTO 140 

150 WINDOW #0,1,40,1,3:PAPER #0,0:PEN #0,1:CLS #0 
160 WINDOW #1,1,40,4,4:PAPER #1,3:PEN #l,l:CLS #1 
170 ORIGIN 0,0,0,640,0,334 
180 x=320:y=200:MOVE x,y 

190 BORDER pn(4):FOR i=0 TO 3:INK i,pn(i):NEXT 
200 MASK 255,0:PAPER 0:PEN 1:PAPER #1,3:PEN #1,1:GRAPHICS 
PEN pn,norx 

210 IF ind<>5 THEN 280 

220 IF pn<2 THEN -f 1 echa*=CHR* (240) : px= (pn +1) *13 ELSE IF p 
n<4 THEN F1echa*=CHR*(241):px=(pn-1)*13 ELSE Flecha*= 
CHR*(243):px=37 
230 LOCATE px,2:PRINT Flecha*} 

240 LOCATE l,l:PRINT USING" PEN 0 : ## PEN 1 : ##"}pn 
(0)}pn(1)} 

250 LOCATE 29,2:PRINT USING"Border : ##"}pn<4) 

260 LOCATE 1,3:PRINT USING” PEN 2 : ## PEN 3 : ##"}pn 
(2);pn(3); 

270 LOCATE px,2:PRINT" "} 

280 LOCATE #l,l,l:PRINT #1,USING"X : #### Y :#### ”;x;y; 

: PRINTttl, "Modo de tinta: " } norx*( norx + (borrará) ) ! ” " 

S 

290 IF ind=0 THEN GOSUB 2260 
300 ’ 

310 GOSUB 970 
320 ’ 

330 IF ind>0 THEN 390 
340 IF i*="" THEN 390 

350 ord = INSTR <ord*,i*):IF ord=0 THEN 390 
360 IF ord=l THEN CLG:x=320:y=200:GOTO 390 
370 IF ord=2 THEN RUN 70 

380 ON ord-2 GOSUB 1240,1410,1520,1640,1840,1860,1950,202 
0,2090,2120,2170,2200,2660,2660,2660,2660,2390,2330,2 
200 

390 IF tx=0 AND ty=0 THEN 200 
400 IF ind>0 THEN 440 
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410 GOSUB 630 

420 GOSUB 680:FRAME:GOSUB 680 
430 GOTO 200 

440 MOVE tempx,tempy,pn,1 

450 ON ind GOSUB 470,490,550,640 

460 GOTO 200 

470 PLOT x, y: GOSUB 630-.PLOT x,y 
480 RETURN 

490 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y 
500 DRAW tempx,tempy+y:DRAW tempx,tempy 
510 GOSUB 630 

520 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y 
530 DRAW tempx,tempy+y:DRAW tempx,tempy 
540 RETURN 

550 MOVE tempx,tempy:DRAWR x,y 

560 IF treslados=0 THEN 580 

570 DRAW tempxx,tempyy:DRAW tempx,tempy 

580 GOSUB 630 

590 MOV/E tempx, tempy: DRAW tempx + x , tempy + y 
600 IF tresladas=0 THEN RETURN 
610 DRAW tempxx,tempyy:DRAW tempx,tempy 
620 RETURN 

630 x=x+tx:y=y+ty:RETURN 
640 MOVE tempx,tempy:DRAW x,y 
650 GOSUB 630 

660 MOVE tempx,tempy:DRAW x,y 
670 RETURN 

680 ’ dibujar y barrar cursor 
690 IF ind=5 THEN RETURN 
700 MASK 255,1 

710 IF ind>l THEN xx=tempx+x:yy=tempy+y ELSE xx=x:yy=y 

720 IF ind=4 THEN xx=x:yy=y 

730 IF ind=l THEN xx=x:yy=y 

740 IF borrar=l THEN 820 

750 GOSUB 790 

760 MASK 255,0 

770 IF i*=" " THEN GOSUB 2150:ií="" 

780 RETURN 

790 MOVE xx-4,yy,pn,1:DRAW xx+4,yy 
800 MOVE xx,yy-4:DRAW xx,yy+4 
810 MOVE xx,yy,,xorn:RETURN 
820 nx=l:GOSUB 1220 
830 FRAME:GOSUB 1220 

840 IF i$=" " THEN nx=norx:GRAPHICS PEN pn,l:GOSUB 1220 
850 i$="" 

860 IF ind< >6 THEN 760 
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870 IF movido=0 AND j$0"" AND <j*<CHR*(240) OR j*>CHR$<2 
47)) THEN ch=ASC<j*):movido=l 
880 IF movido=0 THEN RETURN 
890 LOCATE 5,2 
900 FOR i=ch-5 TO ch+5 
910 PEN ABS <i< >ch)+1 

920 ch*=CHR$(l)+CHR$(ABS<i+256)M0D 256) 

930 IF ch=i THEN PRINT" "ch*“ "5 ELSE PRINT ch*J 
940 NEXT 

950 PEN i:PRINT" = "ch" "} 

960 GOTO 760 

970 ty=0:tx=0:GOSUB 680:FRAME:GOSUB 680 
980 IF INKEY (0)0-1 OR INKEY (72) < >-l THEN ty=16 
990 IF INKEY (2) 0-1 OR INKEY (73) 0-1 THEN ty=-16 
1000 IF INKEY (8) 0-1 OR INKEY (74) 0-1 THEN tx=-16 

1010 IF INKEY (1)0-1 OR INKEY(75)<>-1 THEN tx=16 

1020 IF INKEY (21) 0-1 OR INKEY (76) 0-1 THEN tx=tx/8:ty=ty 
/8 

1030 IF tx=0 AND ty=0 THEN movido=0 ELSE movido=l 
1040 j *=INKEY*:i*=UPPER$(j *) 

1050 IF <¿*=" " OR i*=CHR*<13>) AND ind>0 THEN 1090 
1060 IF ind=5 THEN 1120 

1070 IF ind=6 THEN 1170 

1080 RETURN 

1090 ON ind GOSUB 1240,1410,1640,1860,1950,2020 
1100 i*="” 

1110 RETURN 

1120 IF movído=0 THEN RETURN 

1130 IF tx>2 THEN pn=(pn + l) MOD 5 ELSE IF tx<-2 THEN pn=A 
BS((pn<l))*5-l+pn 

1140 IF ty>2 THEN pn(pn)=<pn(pn)+1) MOD 27 ELSE IF ty<-2 
THEN pn(pn)=ABS((pn(pn)<1))*27-l+pn(pn) 

1150 GRAPHICS PEN pn:PEN #l,pn 
1160 tx=0:ty=0:BORDER pn<pn>:RETURN 
1170 IF tx<0 THEN ch=ABS(ch+255) MOD 256 
1180 IF ty<0 THEN ch=ABS(ch+246) MOD 256 
1190 IF tx>0 THEN ch=(ch+1) MOD 256 
1200 IF ty>0 THEN ch=(ch+10) MOD 256 
1210 tx=0:ty=0:RETURN 

1220 TAG:MOVE xx-8,yy+6,pn,nx:PRINT CHR*(ch)5:TAGOFF 
1230 RETURN 
1240 ’ C 

1250 IF ind=l THEN 1290 
1260 ro=l:GOSUB 2240 
1270 tempx=x:tempy=y:ind=l 
1280 RETURN 
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1290 IF tempx=x AND tempy=y THEN 1390 
1300 PLOT x,y,,1 

1310 tix=MAX(x,tempx)-MIN<tempx,x):tiy=MAX(y,tempy)-MIN(t 
empy,y) 

1320 ti=SQR((tix A 2)+(tiy A 2)) 

1330 ORIGIN tempx,tempy 

1340 PLOT 0,0,pn,0:MOVE 0,-ti 

1350 FOR 2=0 TO PI#2+0.0i STEP PI/(ti/2) 

1360 DRAW SIN ( z + PI)-Jí-t i, COS < z+PI)-X-t i, pn, norx 
1370 NEXT 2 
1380 ORIGIN 0,0 

1390 x=tempx:y=tempy:tempx=0:tempy=0:ind=0 
1400 RETURN 
1410 ’ R 

1420 IF ind=2 THEN 1470 
1430 ro=2:GOSUB 2240 
1440 tempx=x:tempy=y:ind=2 
1450 x=0:y=0 
1460 RETURN 

1470 IF ñor x = l THEN 1500 

1480 MOVE tempx,tempy:DRAW tempx+x,tempy,,norx 
1490 DRAW tempx+x,tempy+y:DRAW tempx,tempy+y:DRAW tempx,t 
empy 

1500 x=tempx:y=tempy:ind=0 

1510 RETURN 

1520 ’ . (rellenar) 

1530 ra=3:GOSUB 2240 

1540 GOSUB 1620:IF i$=" " THEN 1600 
1550 color1im=VAL(i$) 

1560 ro=4:GOSUB 2240 

1570 GOSUB 1620: IF i$>=" " THEN 1600 

1580 reílenador=VAL(i$) 

1590 MOVE x,y, cq 1or1im:FILL rellenador 
1600 ind=0:i$="" 

1610 RETURN 

1620 i$=INKEY$:IF (i$<"0" OR i$>"3") AND i$<>" " THEN 162 
0 

1630 RETURN 
1640 ’ T 

1650 IF ind=3 THEN 1700 
1660 ind=3:ro=5:GOSUB 2240 
1670 tempx=x:tempy=y 
1680 x=0:y=0 
1690 RETURN 

1700 IF treslados< >0 THEN 1770 
1710 ro=6:GOSUB 2240 
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1720 MOVE 0,0,pn,1:GOSUB 590 

1730 tempxx=tempx+x:tempyy=tempy+y:x=x/2:y=20 

1740 treslados=l 

1750 GOSUB 550:GOSUB 590 

1760 RETURN 

1770 IF norx=l THEN 1800 

1780 MOVE tempxx,tempyy,,ñorx:DRAW tempx,tempy 

1790 DRAW tempx+x,tempy+y:DRAW tempxx,tempyy 

1800 tempxx=0:tempyy=0 

1810 x=tempx:y=tempy:treslados=0 

1820 tempx=0:tempy=0:ind=0 

1830 RETURN 

1840 ’ @ 

1850 norx=l:borrar=borrar XOR 1:RETURN 
1860 ’ \ (linea recta) 

1870 IF ind=4 THEN 1910 
1880 ro=7:GOSUB 2240 
1890 tempx=x:tempy=y:ind=4 
1900 RETURN 

1910 IF norx=l THEN 1930 

1920 MOVE tempx,tempy,,norx:DRAW x,y 

1930 x=tempx:y=tempy:ind=0 

1940 RETURN 

1950 ’ I 

1960 IF ind=5 THEN ind=0:CLS:INK 3,coltemp:INK pn,col:GOT 
0 1990 

1970 CLS:ind=5:B0RDER pn(pn) 

1980 RETURN 

1990 FOR i=0 TO 3:INK i,on(i):NEXT:BORDER pn<4) 

2000 IF pn=4 THEN pn=l 
2010 CLS:RETURN 
2020 ’ A 

2030 IF ind=6 THEN 2070 

2040 tempx=0:tempy=0:CLS 

2050 borrar = l:ind=6:norx=l:movído=l 

2060 RETURN 

2070 ind=0 

2080 RETURN 

2090 ’ N 

2100 norx=0 

2110 RETURN 

2120 ’ B 

2130 GRAPHICS PEN pn,0:TAG:MOVE xx-8,yy+6,,0:PRINT" "»:TA 
GOFF 

2140 RETURN 

2150 ’ <BARRA ESPACIADORA> 
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2160 PLOT x,y,pn,norx:RETURN 

2170 ’ X 

2180 norx=l 

2190 RETURN 

2200 * M 

2210 menu=menu MOD 2+1 
2220 GOSUB 2260:RETURN 

2230 Í$=UPPER*<INKEY$):IF i$="" OR INSTR<gri$,i$)=0 THEN 
2230 ELSE RETURN 

2240 CLS:borrar=0:PRINT ord$(ro);:LOCATE 1,3:PRINT"<BARRA 
> "! : IF ro=3 OR ro=4 THEN PRINT"para terminar" 

2250 RETURN 
2260 CLS:ind=-l 

2270 FOR i=l TO LEN(ords$(menú)) 

2280 ps=i+ABS(menu=2)*LEN(ords$(1)) 

2290 PEN 1:PRINT"<"MID$(ordsí(menú),i,1)">"MID$(orden$(ps 
) , 2 , 4 ) " " ; 

2300 NEXT 

2310 PRINT“<CLR> <DEL> <BARRA>" ; 

2320 RETURN 
2330 ’ G 

2340 GOSUB 2460: IF nombre-f i chero$ a "" THEN 2370 
2350 GOSUB 2550 

2360 SAVE nombre-f ichero*,b,8¡C000,8c4000 
2370 GOSUB 2260 
2380 RETURN 
2390 ’ L 

2400 GOSUB 2460: IF nombre-f icheroí="" THEN 2440 
2410 GOSUB 2730 

2420 LOAD nombre-f i chero$, feC000 
2430 GOSUB 2570 
2440 GOSUB 2260 
2450 RETURN 

2460 CLS:LOCATE 10,3:PRINT"<RETURN> para abandonar!"; 

2470 LOCATE 1, 1: PRINT" Nombre del -fichero? "; 

2480 INPUT " " , nombre-f i che roí: IF nombre-f ichero$="" THEN RE 
TURN 

2490 n=INSTR (nombre-f i chero$, IF n=0 THEN 2520 

2500 IF n=l THEN 2460 

2510 nombre-f ichero$=LEFT$< nombre-f icheroí, n-1) 

2520 nombre-f ichero$=LEFT$ < nombre-f icheroí, 8) +". pan" 

2530 CLS 
2540 RETURN 

2550 FOR i=0 TO 4:P0KE 8 íC 000+i , pn < i ) : NEXT 
2560 RETURN 

2570 FOR i=0 TO 4:pn(i)=PEEK(&C000+i) MOD 27:NEXT 
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2580 cn=0:FOR i=0 TO 2:IF pn(i)=pn<i+1) THEN cn=cn+l 

2590 NEXT:IF cn=3 THEN 2630 

2600 FOR i=0 TO 3:INK i,pn<i):NEXT 

2610 BORDER pn(4):pn=l:GRAPHICS PEN pn 

2620 RETURN 

2630 pn(0)=0:pn(1)=26:pn <2)=15:pn <3)=6:pn <4)=0 
2640 GOTO 2600 
2650 ’ 1, 2, 3 y 4 

2660 CLS:PRINT"Quiere <G>uardar":PRINT TAB(8)"<R>ecuperar 
":PRINT TAB(6)"o <I>intercambiar la pantalla?"; 

2670 gri"GRI"+CHR$(13):GOSUB 2230:IF i*=CHR$<13) THEN 2 
260 

2680 bnk2=(ord-13):bnkl=l 

2690 IF i$="G" THEN CLS:GOSUB 2550:¡SCREENCOPY,bnk2,bnkl 
2700 IF i$="R“ THEN GOSUB 2730:!SCREENCOPY,bnkl,bnk2:GOSU 
B 2570 

2710 IF i$="I" THEN CLStGOSUB 2730:GOSUB 2550: ! SCREENSWAP 
,bnk2,bnkl:GOSUB 2570 
2720 GOSUB 2260:RETURN 

2730 FOR i=0 TO 3:INK i,0:NEXT:BORDER 0:RETURN 
2740 CLS:GOSUB 2600:RESUME 2260 
2750 DATA "CR.T@\IANBXM","1234LGM" 

2760 DATA 19, C i rcun-f erenc i a, Recuadro, ". re 1 leñar", Tr i angu 1 
o,Alternar,\recta,"Inks ",ASCII,Normal,Borrar,"Xor 
", "Menú ","1 "» "2 ","3 ","4 "/Leer ", 

Grabar,"Menú " 

2770 DATA C i rcun-f erenc i a, Recuadro, Col or del limite,Color 
para reí leñar,Triangulo 1,Triangulo 2,Linea recta,#* 

Las dos órdenes [SCREENCOPY y ¡SCREENSWAP se cargan con el programa 
BANKMAN (cara 1 del juego de discos del sistema). Estas órdenes copian e intercam¬ 
bian imágenes de pantalla entre los diversos bloques de 16K de memoria y entre los dos 
bancos de 64K. 

Antes de probar el programa ‘diseñador de pantallas’ es necesario ejecutar el ‘gestor 
de bancos’. Inserte en la unidad la cara 1 del juego de discos del sistema y escriba lo 
siguiente: 

run’bankroan" 

A continuación ejecute el programa ‘diseñador de pantallas’. En el monitor aparecerá 
un menú y un cursor gráfico parpadeante. Pulse la tecla correspondiente a la opción 
elegida. 

Por ejemplo, para dibujar una circunferencia pulse 

C 
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y luego la tecla [T] hasta que el cursor pulsátil esté a unos dos o tres centímetros por 
encima del centro de la pantalla. 

Finalmente, pulse la barra espaciadora para ejecutar la función ‘Circunferencia’, des¬ 
pués de lo cual el programa vuelve al menú. 

Si se teclea una M (de ‘M’enú) se obtiene un segundo menú que ofrece las opciones 
de ‘G’uardar y ‘R’ecuperar pantallas y de manipular el contenido de las pantallas ‘T, 
‘2’, ‘3’ y ‘4’ (que están en el segundo banco de 64K de RAM). 

Para utilizar estas funciones, escriba el ‘número de memoria’(1, 2, 3 o 4 ); aparacerá 
otro menú, en el cual se puede elegir: 

G para almacenar una pantalla 

R para recuperar una pantalla 

I para intercambiar pantallas 

CRETURN3 para abandonar este menú 

Por ejemplo, para almacenar la pantalla actual en la memoria 2, pulse el ‘2’ seguido 
de la ‘G’. 

Si se sale de este menú, pulsando ‘M’ puede volver a él. 

El programa ‘diseñador de pantallas’ realiza diversas funciones: rectángulos, circunfe¬ 
rencias, triángulos, rectas, encendido y apagado de puntos, rellenado de recintos y di¬ 
bujo de caracteres. 

Cuando se ha terminado el diseño de una pantalla, se la puede grabar en disco para 
su posterior recuperación. 


Con esto termina el último capítulo del manual. Probando y analizando 
los programas que le hemos ofrecido en estas páginas, y experimentando 
con ellos, es de esperar que usted haya llegado a conocer con bastante 
profundidad el BASIC de Amstrad y el propio CPC6128. 
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Para más información ... 

Hay numerosas publicaciones de Indescomp y de otras editoriales en las 
que puede encontrar más amplia información sobre el CPC6128; en con¬ 
creto, las especificaciones de BASIC y del firmware y extensa documen¬ 
tación sobre CP/M y Dr. LOGO. 

Finalmente vamos a ofrecerle cuatro apéndices: el Acuerdo de licencia 
para el usario final de programa CP/M, un glosario de terminología in¬ 
formática, los listados de unos cuantos programas y un índice 
alfabético. 

Esperamos que haya encontrado este manual instructivo e interesante y 
le agradecemos que haya adquirido el CPC6128. 
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Apéndice 1 

Digital Research y AMSTRAD 


Acuerdo de licencia para el usuario final 
del programa 


ADVERTENCIA AL USUARIO: POR FAVOR, LEA ATENTAMENTE ESTA 
NOTA. NO ABRA LAS CAJAS DE LOS DISCOS MIENTRAS NO HAYA 
LEIDO ESTE CONTRATO. 

POR EL HECHO DE ABRIR LA CAJA USTED RECONOCE QUE ACEPTA 
LAS CLAUSULAS Y CONDICIONES SIGUIENTES. 


1. Definiciones 

En este contrato: 

1. ‘DRI’ significa DIGITAL RESEARCH (CALIFORNIA) INC., P. O. Box 579, Pa¬ 
cific Grove, California 93950, EE.UU., propietario de los derechos de reproducción 
o licenciatario autorizado del programa. 

2. ‘Máquina’ significa un único microordenador en que se utiliza el programa. Para 
los ordenadores con microprocesadores múltiples se requieren licencias adicionales. 

3. ‘Programa’ es el conjunto de programas, documentación y anejos incluidos en esta 
aplicación, así como las actualizaciones y modificaciones que DRI pueda suminis¬ 
trarle, cualquiera que sea la forma en que usted los utilice, con o sin sus propias 
modificaciones. 

4. ‘AMSTRAD’ significa AMSTRAD CONSUMER ELECTRONICS PLC., Brent- 
wood House, 169 Kings Road, Brentwood, Essex CM14 4EF, Reino Unido. 

Usted asume toda la responsabilidad derivada de la selección del programa y de su 
instalación, utilización y resultados. 
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2. Licencia 


Usted puede: 

1. Utilizar el programa en una sola máquina. 

2. Copiar el programa en forma electrónica o impresa, bien sea como medida de segu¬ 
ridad o para modificarlo, siempre condicionado a su utilización en una sola máqui¬ 
na. Para estos propósitos puede hacer 3 (tres) copias como máximo. (No obstante, 
algunos programas pueden estar dotados de mecanismos que limiten las posibilida¬ 
des de copia o la impidan; son los marcados con ‘copy protected’). Está prohibido 
copiar la documentación y los demás impresos. También está prohibido desensam¬ 
blar el código de máquina. 

3. Modificar el programa o mezclarlo con otro para utilizar el programa resultante en 
una sola máquina. (Toda porción de este programa que se mezcle con otro seguirá 
estando sujeta a las cláusulas de este contrato.) 

4. Transferir el programa y la licencia a otro usuario a condición de que comunique 
a DRI el nombre y las señas de ese otro usuario, y de que éste acepte (a) las condicio¬ 
nes establecidas en este contrato, (b) fimar y enviar a DRI una copia de la tarjeta 
de registro y (c) pagar los derechos de transferencia vigentes en el momento. Si usted 
transfiere el programa, debe al mismo tiempo: o bien transferir todas las copias, in¬ 
cluido el original, tanto en versión electrónica como impresa, al mismo usuario, o 
bien destruir todas las copias no transferidas; esto es de aplicación también a todas 
las modificaciones y a todas las porciones del programa que haya mezclado con 
otros programas. 

Usted está obligado a incluir el mensaje de copyright en todas las copias, modificacio¬ 
nes y porciones mezcladas con otros programas. 


CADA DISCO TIENE GRABADO UN NUMERO DE SERIE. USTED NO PUE¬ 
DE UTILIZAR, COPIAR, MODIFICAR, TRANSFERIR NI DE NINGUNA 
OTRA FORMA PERMITIR QUE OTRA PERSONA LLEGUE A ESTAR EN 
POSESION DE ESTE PROGRAMA, NI DE NINGUNA COPIA, MODIFICA¬ 
CION O PORCION MEZCLADA CON OTRO PROGRAMA, SALVO EN LAS 
CONDICIONES PREVISTAS EN ESTE CONTRATO. 


3. Vigencia del contrato 

Esta licencia estará en vigor mientras no sea cancelada. Usted puede cancelarla en cual¬ 
quier momento destruyendo el programa junto con sus copias, modificaciones y por¬ 
ciones mezcladas con otros programas. También quedará cancelada en las condiciones 
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mencionadas en otro lugar de este contrato, o por el hecho de que usted no cumpla 
alguna de las cláusulas del contrato. Al aceptar este acuerdo, usted se compromete a 
destruir todas las copias, modificaciones y porciones mezcladas con otros programas 
en cuanto la licencia quede cancelada. 


4. Garantía limitada 


EL PROGRAMA SE SUMINISTRA ‘TAL CUAL’. NI DRI NI AMSTRAD 
OFRECEN GARANTIA ALGUNA, NI EXPRESA NI IMPLICITA, INCLU¬ 
YENDO LAS GARANTIAS IMPLICITAS DE COMERCIABILIDAD Y ADE¬ 
CUACION A UN PROPOSITO CONCRETO, AUNQUE SIN LIMITARSE A 
ESTAS. USTED ASUME TODOS LOS RIESGOS EN CUANTO A LA CALI¬ 
DAD Y BUEN FUNCIONAMIENTO DEL PROGRAMA. SI ESTE FUERA DE¬ 
FECTUOSO, USTED (Y DRI Y AMSTRAD) ASUME EL COSTO TOTAL DE 
LA REPARACION O CORRECCION NECESARIAS. 


Ni AMSTRAD ni DRI garantizan que las funciones del programa vayan a satisfacer 
sus necesidades, ni que el funcionamiento del programa sea ininterrumpido y libre de 
error. 

No obstante, AMSTRAD garantiza que el disco soporte del programa está libre de de¬ 
fectos, si se le da un trato normal, por-un periodo de 90 días contados a partir de la 
fecha de la compra, la cual se acreditará mediante la factura. 


5. Limitación de la responsabilidad 


La responsabilidad de AMSTRAD se limita a su compromiso de sustituir el disco de¬ 
fectuoso, que habrá de ser enviado a AMSOFT junto con un copia de la factura. 


DRI Y AMSTRAD NO SERAN EN NINGUN CASO RESPONSABLES DE NIN¬ 
GUN DAÑO, INCLUIDAS PERDIDAS DE BENEFICIOS, PERDIDAS DE 
AHORROS Y CUALESQUIERA OTROS PERJUICIOS DIRECTOS O INDI¬ 
RECTOS, AUN CUANDO DRI O AMSTRAD HAYAN SIDO AVISADOS DE 
LA POSIBILIDAD DE TALES DAÑOS, NI DE NINGUNA RECLAMACION 
DE TERCEROS. 
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6. Tarjeta de registro 


DRI actualiza de vez en cuando sus programas. DRI sólo enviará tales actualizaciones 
si ha recibido de usted la tarjeta de registro firmada, o si la ha recibido un receptor 
autorizado por DRI. DRI no está obligada a actualizar el programa ni a enviarle a us¬ 
ted las actualizaciones. 


7. Condiciones generales 


Usted no puede ceder, asignar o transferir ni la licencia ni el programa a otras personas, 
salvo en la forma expresamente autorizada en este contrato. Todo intento de ceder, 
asignar o transferir los derechos y obligaciones descritos en este contrato será nulo. 

Este acuerdo será regido e interpretado de acuerdo con las leyes británicas. 

Si tiene usted alguna pregunta que hacer en relación con este contrato, puede escribir 
a Digital Research Inc., P. O. Box 579, Pacific Grove, California 93950, EE. UU. 


ESTE CONTRATO NO PUEDE SER MODIFICADO POR PROPUESTAS DE 
PEDIDO, POR ANUNCIOS PUBLICITARIOS NI DE NINGUNA OTRA FOR¬ 
MA. SOLAMENTE PUEDE SER MODIFICADO MEDIANTE CONTRATO 
SUSCRITO ENTRE USTED Y UN APODERADO DE DRI Y OTRO DE 
AMSTRAD. 

USTED RECONOCE QUE HA LEIDO ESTE CONTRATO, QUE LO ENTIEN¬ 
DE Y QUE ESTA DE ACUERDO CON LAS CONDICIONES EN EL EXPUES¬ 
TAS. USTED ACEPTA ADEMAS QUE ESTE CONTRATO ES EL UNICO ES¬ 
TABLECIDO ENTRE USTED, DRI Y AMSTRAD, Y QUE ANULA CUAL¬ 
QUIER OTRA PROPUESTA O CONTRATO ANTERIOR, VERBAL O ESCRI¬ 
TO, Y CUALESQUIERA OTRAS COMUNICACIONES ENTRE USTED Y DRI 
O AMSTRAD EN RELACION CON ESTE ASUNTO. 
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Apéndice 2 

Léxico inglés-castellano y glosario 


Algunos términos que se utilizan frecuentemente en infor¬ 
mática, explicados para los usuarios del CPC6128. 


Accumulator Acumulador 

Una parte del microprocesador, en el corazón del ordenador, en el que se almacenan 
temporalmente los datos mientras se los está procesando. Se lo utiliza en la programa¬ 
ción en código de máquina. Los usuarios de BASIC ni siquiera necesitan saber que 
existe. 

Acoustic coupler Acoplador acústico 

También denominado ‘modem acústico’. Dispositivo electrónico mediante el cual se 
puede conectar el ordenador a la red telefónica. De esta forma el ordenador se puede 
integrar en una red de comunicación pública, o bien comunicarse con otros usuarios 
de ordenadores domésticos para el intercambio de información o programas. 


Address Dirección 

Número que identifica la posición de una célula de la memoria del ordenador. Median¬ 
te la dirección se selecciona una célula concreta para leer su contenido o, en el caso 
de la memoria RAM, para leer o escribir un valor en ella. 


Adventure game Juego de aventura 

Una pasión para algunos, un aburrimiento para otros. Un juego de ordenador en el 
que se invita al jugador a participar en una serie de sucesos pseudoaleatorios con el ob¬ 
jetivo de salir de un laberinto. 


Algorithm Algoritmo 

Nombre grandilocuente que se da a una fórmula o a una suma complicada. Secuencia 
de operaciones lógicas y aritméticas con las que se realiza una determinada tarea 
informática. 
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Alphanumeric 


Alfanumérico 


Adjetivo que describe la diferencia entre una letra o un dígito y un carácter gráfico. 


ALU (Arithmetic and Logic Unit) Unidad aritmética y lógica 

Parte del microprocesador que realiza las operaciones lógicas y aritméticas. De interés 
solamente para la programación en código de máquina. 


Ambiguous File Ñame Nombre de fichero ambiguo 

Un nombre de fichero que contiene uno o varios símbolos comodín. Los nombres de 
fichero ambiguos pueden representar al mismo tiempo varios ficheros cuyos nombres 
tienen algo en común. 


AMSDOS 

AMStrad Disc Operating System. Sistema operativo de disco AMSTRAD. Es el pro¬ 
grama que permite que el BASIC de Locomotive acceda a los ficheros de disco. 


AMSOFT 

División de AMSTRAD especializada en el apoyo a los usuarios de los ordenadores; 
suministra programas, periféricos y publicaciones, específicamente con objeto de po¬ 
tenciar el CPC6128 y sus muchas aplicaciones. 


D Analog Analógico 

Adjetivo que caracteriza los fenómenos en los que las transiciones entre el estado inicial 
y el final se realizan de forma gradual o continua. Los ordenadores son dispositivos 
digitales, mientras que los fenómenos naturales son en su mayoría analógicos; así pues, 
el ordenador tiene que realizar una conversión A/D antes de poder procesar los datos 
recibidos de una fuente analógica. 

Animation Animación 

Los dibujos animados son el mejor ejemplo. La animación en los ordenadores consiste 
en mover gráficos por la pantalla, tratando de simular los movimientos de los seres 
reales. 
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Applications program 


Programa de aplicaciones 


Programa escrito para realizar una tarea específica, a diferencia de los programas de 
‘utilidad’, tales como ensambladores, controladores de impresora, etc., que son de in¬ 
terés más general. 


Arcade game Juego gráfico de salón 

Juego de ordenador basado en el movimiento de gráficos (invasores espaciales, mons¬ 
truos al acecho en un laberinto, etc.). El usuario tiene que evitar la ‘muerte’ de los ‘bue¬ 
nos’. Generalmente sirven para ejercitar los reflejos, pero no tienen ningún valor didác¬ 
tico para los estudiantes de informática. 


Architecture Arquitectura 

Término que designa la organización general de un ordenador (relaciones entre el bus 
de datos, la UCP y los periféricos). 


Argument Argumento 

Una variable independiente. Por ejemplo, en SIN(x) la x es el argumento de la función 

SIN. 

Array Matriz 

Combinación de elementos de un mismo tipo dispuestos en una o varias dimensiones. 
En el caso monodimensional se denominan ‘vectores’. 


Artificial intelligence (AI) Inteligencia artificial 

Técnica de programación que permite al programa aprender por la experiencia. 


ASCII 

American Standard Code for Information Interchange. Código estadounidense están¬ 
dar para el intercambio de información. Forma habitual de representar dígitos, letras 
y otros símbolos mediante códigos numéricos. 
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Assembler 


Ensamblador 


Programa que facilita la programación en código de máquina. Las instrucciones son 
los llamados ‘nemónicos’: grupos de letras que se recuerdan e interpretan fácilmente 
porque dan una idea de la función que realiza cada instrucción. 


Backup Copia de seguridad 

Copia que se hace de los programas o ficheros de datos en previsión de que se borre 
o deteriore accidentalmente el original. 


Bar code Código de barras 

Código impreso legible por ordenador mediante técnicas ópticas tales como láser de ba¬ 
ja potencia. (Ejemplo: el grupo de rayas verticales que se imprime en la cubierta de al¬ 
gunas revistas.) 


Base Base 

Es el número de dígitos que se utilizan en cada sistema de representación numérica. 
En el sistema decimal es 10; en el binario, 2; en el hexadecimal, 16. 


BASIC 

Beginners’ All-purpose Symbolic Instruction Code. Código de instrucciones simbólicas 
de uso general para principiantes. Es un lenguaje de programación interpretado que 
se incorpora en la mayor parte de los ordenadores domésticos. BASIC fue diseñado 
primordialmente como ayuda para la enseñanza, pues permite la comprobación de los 
programas en cualquier momento de su desarrollo. En esto se distingue de los progra¬ 
mas compilados, que no pueden ser probados parcialmente mientras el programa no 
esté completo. 

Baud Baudio 

Unidad de medida de la velocidad de transmisión de datos. En un concepto distinto 
del de bit por segundo, aunque en muchos casos sus valores coincidan. 


BCD (Binary Coded Decimal) Decimal codificado en binario 

Sistema de codificación para números decimales en el que cada dígito se representa por 
un grupo de cuatro bits. 
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BDOS 


Basic Disc Operating System. Sistema operativo básico de disco. Parte del sistema ope¬ 
rativo CP/M que proporciona un interfaz para que el programa del usuario pueda utili¬ 
zar las funciones de CP/M. 


Benchmark Prueba patrón 

Una tarea estándar que se realiza con distintos ordenadores para comparar su veloci¬ 
dad, precisión, etc. Por ejemplo, elevar al cuadrado el número 99999 y luego calcular 
la raíz cuadrada. 


Binary Binario 

Sistema de numeración de base 2, en el que los números se representan como combina¬ 
ciones de solamente dos dígitos: el 0 y el 1. (Véase la parte 1 del capítulo ‘Cuando usted 
guste ...’.) 


Binary number Número binario 

Un número representado en el sistema binario. En el BASIC del CPC6128 se los identi¬ 
fica por el prefijo &X; por ejemplo, &X0101 = 5(decimal). 


BIOS 

Basic Input/Output System. Sistema básico de entrada/salida. Es la parte de CP/M 
que se escribe específicamente para cada ordenador concreto. Gestiona todas las entra¬ 
das y salidas: pantalla, teclado, disco, etc. 


Bit 

Forma abreviada de Binary digiT (dígito binario). Un dígito binario es uno de los dos 
símbolos (el 0 y el 1) con los que se representan los números en el sistema de base 2. 


Bit significant Interpretable bit a bit 

Hace referencia a los casos en los que se puede extraer información de un número exa¬ 
minando el estado de cada uno de sus bits. El valor global en decimal no tiene significa¬ 
do evidente. 
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Boolean algebra Algebra de Boole 

Estructura algebraica sobre variables que pueden tomar dos valores distintos: verdade¬ 
ro/falso, 1/0, etc. 

Boot Carga inicial 

Proceso de carga de un sistema operativo en la memoria del ordenador. Cuando se car¬ 
ga CP/M desde BASIC, lo primero que se lee es un pequeño programa autocargador, 
el cual realiza la carga del sistema operativo propiamente dicho. 


Booting, Bootstrapping Autocarga 

Los programas y sistemas operativos no se cargan a sí mismos, sino gracias a una rutina 
(generalmente grabada en ROM) que inicia el proceso de carga a partir de una determi¬ 
nada posición de memoria. 


Buffer Tampón 

Area de memoria reservada para el almacenamiento temporal en los procesos de trans¬ 
ferencia de la información. 


Bug Error de programación 

Un problema no previsto en un programa: puede ir desde una ‘característica inespera¬ 
da’ (por ejemplo, si se pulsan cuatro teclas a un tiempo la pantalla cambia de color) 
hasta una secuencia de instrucciones que provoca la pérdida del control de la máquina. 


Built-in commands Órdenes internas o incorporadas 

Órdenes que forman parte del sistema operativo. Son de ejecución más rápida que las 
órdenes externas, pues no tienen que ser cargadas del disco. 


Bus 

Grupo de conexiones, internas al ordenador o de entrada/salida, por las que se trans¬ 
mite información acerca del estado de la UCP, de la RAM o de cualquier otra parte 
del hardware. EL bus del CPC6128 es accesible a través del zócalo EXPANSION que 
está en la cara posterior del ordenador. 


A2/6 


Léxico inglés-castellano y glosario 




Byte Byte, octeto 

Grupo de 8 bits. Es la menor porción de información que una UCP puede intercambiar 
con la memoria. 


CAD, Computer Aided Design Diseño asistido por ordenador 

Generalmente, un programa interactivo que convierte el ordenador en un tablero de 
dibujo electrónico que además es capaz de realizar cálculos matemáticos. 


CAE, Computer Aided Education Enseñanza asistida por ordenador 

Programa que facilita la enseñanza en general sirviéndose de los ordenadores. 


Cartridge Cartucho 

Dispositivo de memoria externo compacto conectable al ordenador (v. g., programas 
en ROM, cuya ventaja es la gran velocidad de carga, pero que son más caros que los 
suministrados en disco). 

Cassette 

Cinta encapsulada, ya sea virgen o con programas comerciales. 


CCP Intérprete de consola 

Consolé Command processor. Procesador de órdenes de consola. Es el módulo de 
CP/M que interpreta y ejecuta las entradas por el teclado. 

Character Carácter 

Cualquier símbolo que pueda ser manejado y visualizado por el ordenador: dígitos, le¬ 
tras y otros signos, incluidos los símbolos gráficos. 


Character set Juego de caracteres 

Conjunto de todos los signos y símbolos disponibles en un ordenador o una impresora. 
El hecho de que un ordenador tenga un símbolo determinado no implica que éste sea 
reproducible en la impresora. 
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Character string 


Cadena literal 


Grupo de caracteres que pueden ser almacenados y tratados en bloque, v. g. una pala¬ 
bra o grupo de palabras. 

Chip Pastilla 

Término popular, aunque incorrectamente utilizado, para designar un circuito integra¬ 
do monolítico. La ‘pastilla’ es en realidad un trozo de silicio en el que se graba el 
circuito. 

Clock Reloj 

Sistema temporizador de referencia del ordenador que controla y sincroniza la secuen¬ 
cia de operaciones. Un reloj de tiempo real es el que mantiene la hora, fecha, etc. 

Code Código 

Aparte de otros significados, forma abreviada de referirse al ‘código de máquina’. 

Coid start Arranque en frío 

Proceso de carga e inicialización de un sistema operativo. El arranque en frío de CP/M 
se realiza cuando se ejecuta la orden ¡CPM de AMSDOS. 

Command Orden 

Instrucción de programa o instrucción directa de teclado. 


Compiler Compilador 

Un programa complejo que convierte programas completos escritos en un lenguaje de 
alto nivel, tal como BASIC, en códigos directamente utilizables por el microprocesa¬ 
dor, con el consiguiente incremento de la velocidad de ejecución. 


Computer generations Generaciones de ordenadores 

Diversos hitos tecnológicos han delimitado las etapas de la evolución de la tecnología 
informática; los ordenadores fabricados con un nivel de sofisticación similar forman 
una ‘generación’. 
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Consolé mode 


Modo de consola 


Modo directo de CP/M; en la pantalla aparece el mensaje inductor A> para indicar 
que el sistema está esperando que se teclee una orden interna o el nombre de un progra¬ 
ma de ayuda. 


Corruption Corrupción 

Destrucción o alteración del contenido de un fichero o de la memoria, indeseada y posi¬ 
blemente irremediable. 


CP/M 

Control Program for Microcomputers. Programa de control para microordenadores. 
Sistema operativo basado en disco, desarrollado por Digital Research, que proporciona 
un interfaz con el que utilizar una gran variedad de programas. 


CPU, Central Processing Unit Unidad central de proceso 

Núcleo del sistema informático que interpreta las instrucciones y hace que sean obede¬ 
cidas. En los microordenadores la UCP es el propio microprocesador. 


Cursor 

Símbolo móvil que indica en qué lugar de la pantalla aparecerá el próximo carácter que 
se envíe a ella. 


Cursor control keys Teclas de movimiento del cursor 

Teclas con las que se hace que el cursor se mueva por la pantalla. Frecuentemente se 
las utiliza también en los juegos gráficos. 


Daisy-wheel printer Impresora de margarita 

Impresora que escribe con calidad de máquina de escribir. Los caracteres están prefor¬ 
mados, cada uno en un brazo de la ‘margarita’, y se los transfiere al papel al golpear 
el brazo con un martillo. 
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Database 


Base de datos 


Colección de datos estructurados, integrados y coherentes, utilizables por el 
ordenador. 


Data capture Captación de datos 

Recolección de datos enviados al ordenador desde fuentes externas. 

Debugging Depuración 

Proceso de detección y eliminación de errores de los programas. 

Decimal notation Notación decimal 

Sistema decimal de numeración, de base 10, que utiliza los dígitos del 0 al 9. Es el siste¬ 
ma ordinario. 

Default Prescrito, implícito, por defecto 

Valor que el ordenador supone en ausencia de otra especificación por parte del usuario. 
Por ejemplo, en CP/M la unidad de disco implícita es la A:. 

Delimiter 

Véase Separator. 

Diagnostic Diagnóstico 

Mensaje emitido automáticamente por el ordenador para señalar e identificar un error 
de un programa. 

Digital 

Es el término opuesto a ‘analógico’. Describe la transición brusca entre dos estados de 
un proceso. 
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Digitizer 

Método de conversión de información analógica en digital. 


Digitalizador 


Directory Directorio 

Sección de un disco que contiene las reseñas (títulos y características) de los ficheros 
grabados en él. Lista del contenido de un disco. 


Disc, disk Disco 

Hoja de plástico circular, fina y plana, recubierta de material magnético, que se utiliza 
como medio de almacenamiento de la información. El disco está incluido en una envol¬ 
tura protectora en la que hay una ‘ventana’ para la cabeza lectora. En el disco de 3 
pulgadas la ventana está cubierta por un obturador metálico que se abre automática¬ 
mente cuando se introduce el disco en la unidad. 


Disc drive Unidad de disco 

Mecanismo y circuitos electrónicos con los que se mueve el disco para leer o grabar da¬ 
tos en él. 


Documentation Documentación 

Manuales suministrados con los ordenadores o los programas, en los que se explica su 
funcionamiento. 


DOS (Disc Operating System) Sistema operativo basado en disco 

Programas que controlan todas las operaciones de la unidad de disco. 


Dot matrix Matriz de puntos 

Retícula rectangular de puntos con la que se puede visualizar cada carácter seleccionan¬ 
do los puntos adecuados. 
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Double sided 


De doble cara 


Hace referencia a los discos en los que se puede almacenar información en ambas caras. 
Una unidad de doble cara puede acceder a ambas caras del disco sin necesidad de ex¬ 
traer y darle la vuelta a éste. 


Dr. LOGO 

Versión de LOGO elaborada por Digital Research. LOGO es un lenguaje de programa¬ 
ción caracterizado por sus ‘gráficos de tortuga’. 


Dumb terminal Terminal pasivo 

Terminal de ordenador que actúa solamente como medio de entrada o salida, pero sin 
procesar la información. 


Edit Editar, corregir 

Corregir o modificar datos, programas o textos. 


Editor 

Un programa, generalmente grabado en la ROM del ordenador, que permite realizar 
el proceso de edición. 


EPROM 

Erasable Programmable Read only Memory. Memoria borrable y programable de ‘sólo 
lectura’. Similar a la PROM, pero tal que su contenido se puede borrar con luz ultra¬ 
violeta para luego grabar en ella un nuevo programa. Una EEPROM puede ser borrada 
por medios electrónicos. 


Expression Expresión 

Fórmula utilizada en un programa para realizar cierta operación con los datos. La pro¬ 
pia expresión indica normalmente la naturaleza de los datos que puede manejar. En 
Dr. LOGO una expresión consiste en el nombre de un procedimiento seguido de las 
entradas requeridas. 
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Fifth generation computers 


Ordenadores de la quinta generación 


Grandes ordenadores que estarán disponibles en el futuro y tendrán, como característi¬ 
ca distintiva, la capacidad de utilizar ampliamente las técnicas de la inteligencia 
artificial. 


File Fichero 

Colección de datos, de estructura homogénea, generalmente grabada en cinta o disco. 


File ñame Nombre de fichero 

En Dr. LOGO el nombre de un fichero puede estar formado por un máximo de 8 carac¬ 
teres alfanuméricos. En CP/M se permiten otros tres caracteres, precedidos por un 
punto. 


Firmware 

Software contenido en ROM: un híbrido de software y hardware. 


Fixed-point number Número en coma fija 

Un número que se representa, manipula y almacena con la coma decimal en una posi¬ 
ción determinada. 


Floating-point number Número en coma flotante 

Número que se representa, manipula y almacena con la coma decimal en la posición 
más conveniente (en forma de mantisa y exponente). 

Floppy disc 

Véase Disc. 

Flowchart Ordinograma 

Representación esquemática de la evolución de las acciones de un programa. 
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Forth 


Lenguaje de programación de alta velocidad de ejecución. Tanto la velocidad como la 
complejidad están a medio camino entre los lenguajes de alto nivel y el código de má¬ 
quina. No es un lenguaje para principiantes. 


Function key Tecla de función 

Tecla que tiene asignada una tarea específica, que puede ejecutar en lugar (o además) 
de la función grabada sobre ella. 


Cate Puerta lógica 

Las puertas lógicas permiten el paso de datos cuando se cumplen ciertas condiciones. 
Hay muchos tipos de puertas lógicas: OR, AND, XOR, etc. 


Graphics Gráficos 

Dibujo de puntos, rectas, circunferencias, etc.; es decir, todo lo que aparece en la pan¬ 
talla que no sean ‘caracteres’. 


Graphics character Carácter gráfico 

Símbolo asignado a un carácter que es en sí mismo un dibujo. 


Graphics cursor Cursor gráfico 

Concepto similar al de ‘cursor de texto’, pero invisible v en el 6128) y referido a la panta¬ 
lla gráfica. 

Graphics mode Modo gráfico 

Los ordenadores más antiguos tenían que ser puestos explícitamente en este modo para 
poder manejar gráficos. En cambio, los ordenadores personales modernos pueden 
mezclar textos con gráficos. 


Graphics tablet Tablero gráfico 

Periférico que convierte un dibujo en una forma manipulable por el ordenador. Es una 
forma de conversión A/D (analógica a digital). 
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Handshaking Intercambio de indicativos y señales de control 

Secuencia de señales electrónicas que inicia, comprueba y sincroniza el intercambio de 
datos entre un ordendor y un periférico o entre dos ordenadores. 


Hard copy Copia en papel 

Listado por impresora de un programa o un texto, o volcado en papel de la pantalla 
gráfica. 

Hardware Equipos, máquinas 

Componentes electrónicos o mecánicos de un sistema informático: todo lo que tiene 
volumen y peso. 

Hexadecimal (HEX) 

Sistema numérico de base 16. Los números hexadecimales se identifican en el CPC6128 
por los prefijos & y &H. Por ejemplo, &FF=255 (decimal). (Véase la parte 1 del capítu¬ 
lo ‘Cuando usted guste 

Hex file Fichero HEX 

Representación ASCII de un fichero de orden externo o de código de máquina. 

High-level language Lenguaje de alto nivel 

Lenguajes del tipo de BASIC, en los que las instrucciones son más próximas al lenguaje 
ordinario. Son más lentos que el código de máquina, pero mucho más sencillos de en¬ 
tender y programar. 


IEEE-488 

Uno de los interfaces estándar para la conexión de dispositivos externos a un ordena¬ 
dor. Similar al Centronics, pero no totalmente compatible con él. 

Information technology Tecnología de la información 

Todo lo relativo a la utilización de los ordenadores en el proceso de la información y 
las comunicaciones: proceso de textos, transmisión de datos, videotexto, teletexto, etc. 
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Initialise 


Inicializar 


Poner en marcha un sistema. O dar valores concretos a variables antes de empezar la 
ejecución del núcleo central de un programa; por ejemplo, dimensionar matrices, de¬ 
clarar tipos de variables, etc. 


* n P ut Entrada 

Datos de todo tipo que entran en el ordenador procedentes del disco, del teclado, de 
una puerta RS-232, etc. 


Instruction Instrucción 

Orden que manda al ordenador que realice alguna operación o tarea. Un conjunto de 
instrucciones forma un programa. 


Instruction set Juego de instrucciones 

Conjunto de procesos lógicos y matemáticos fundamentales que puede realizar el mi¬ 
croprocesador. Toda instrucción de un lenguaje de alto nivel (y también los nemónicos 
de ensamblador) tiene que ser convertible a una instrucción o serie de instrucciones que 
la UCP pueda reconocer. 


Integer 


Entero 


Número sin parte decimal. 


Integrated Circuit Circuito integrado 

Conjunto de componentes electrónicos miniaturizados, grabados en una pastilla de sili¬ 
cio. (Véase también Chip.) 


Intelligent terminal Terminal inteligente 

Un terminal que, además de gestionar entradas y salidas para un ordendor central, pue¬ 
de realizar ciertas tareas de proceso de datos cuando el ordenador está ‘fuera de línea’. 
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Interactive 


Interactivo 


Hace referencia a los programas que solicitan del usuario la introducción de informa¬ 
ción de modo inmediato: desde el control de naves espaciales en juegos gráficos hasta 
las respuestas en programas educativos. La acción del usuario tiene efecto en ‘tiempo 
real’ sobre la evolución del programa. 


Interface Interfaz 

Vía de entrada y salida del ordenador, tanto para las señales eléctricas como para las 
acciones y reacciones del usuario. En el CPC6128, el teclado, la pantalla y las conexio¬ 
nes para periféricos. 


Interpreter Intérprete 

Una analogía más entre las instrucciones de ordenador y los idiomas. Es el elemento 
del sistema que interpreta el lenguaje de alto nivel y lo convierte a una forma utilizable 
por UCP de modo inmediato. 

1/0 Entrada/Salida (E/S) 

Input/output. Entrada/Salida. 


Itera tion Iteración 

Uno de los mecanismos básicos de la informática. Consiste en la repetición de tareas 
(bucles), en las que generalmente se va modificando el valor de una variable, hasta que 
se cumple determinada condición. 


Joystick Bastoncillo de mando 

Dispositivo de entrada al ordenador que generalmente sustituye las teclas del cursor y 
hace que los juegos gráficos sean más fáciles y rápidos de controlar. 


K 

Forma abreviada y aproximada del prefijo ‘kilo’ (1000). Representa un ‘kilobyte’, que 
en realidad es 1024 bytes. (1024 es la base del sistema binario, 2, elevada a la décima 
potencia.) 
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Keyboard 


Teclado 


Matriz de interruptores alfanuméricos a través de la cual se introduce información en 
el ordenador. 


Keyword Palabra clave 

Palabra que un programa o lenguaje de programación reserva para una función u or¬ 
den específica. 


Least significant bit Bit menos significativo 

En un número binario, el bit de menor peso; es decir, el que está más a la derecha en 
la representación matemática habitual. 


Light pen Lápiz óptico 

Otro dispositivo de entrada al ordenador que sirve para indicar una selección de zonas 
de la pantalla o para leer códigos de barras. 

Line number Número de línea 

Los programas de BASIC y de algunos otros lenguajes tienen las instrucciones numera¬ 
das para indicar al ordenador el orden de ejecución. 


LISP 

Acrónimo de ‘LISt Processor language’ (lenguaje de proceso de cadenas de predica¬ 
dos). Otro lenguaje de alto nivel. 


Logic Lógica 

Entre otras acepciones, conjunto de componentes electrónicos que realizan las opera¬ 
ciones lógicas elementales en las que en último término se basa el funcionamiento del 
ordenador. 

Logical device Dispositivo lógico 

La representación de un dispositivo puede no coincidir con su forma física. Por ejem¬ 
plo, el dispositivo lógico LST de CP/M puede ser asignado a la puerta Centronics, pero 
también a la pantalla del monitor. 
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LOGO 


Nombre de un lenguaje de programación tomado del término griego Mogos’, que signi¬ 
fica ‘palabra’. LOGO ha sido diseñado para servir como ayuda en la enseñanza de la 
informática elemental. 


Loop Buc,e 

Sección de un programa que se ejecuta reiteradamente hasta que se cumple determina¬ 
da condición. 

Low-level languaje Lenguaje de bajo nivel 

Por ejemplo, el lenguaje ensamblador. Un lenguaje en el que cada instrucción corres¬ 
ponde a una instrucción de código de máquina. 


LSB, Least Significant Bit Bit menos significativo, bms 

En un número binario, el bit de menor peso, es decir, el que está más a la derecha en 
la representación matemática habitual. 

LSI, Large Scale Integration Integración a gran escala 

Etapa avanzada del desarrollo de circuitos integrados, en la que incorporan miles de 
componentes electrónicos en una sola pastilla de silicio. 


Machine code Código de máquina 

Lenguaje de programación que es directamente comprensible y utilizable por el 
microprocesador. 

Machine readable Accesible a la máquina 

Este término hace referencia a datos e información que puedan ser introducidos direc¬ 
tamente en la máquina, sin necesidad de conversión. 

Man-machine interface Interfaz hombre-máquina 

Dispositivo que facilita la interacción entre el usuario y el ordenador (teclado, sonido, 
etc.) 
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Matrix 


Matriz 


Disposición de los puntos con los que se forman los caracteres en la pantalla o en las 
impresoras de ‘matriz de puntos’. En otra acepción, variables que con un solo nombre 
pueden contener múltiples valores, a los que se accede mediante los ‘índices’. 


Memory Memoria 

Especie de ‘aparcamiento’ en la máquina, en la que ésta almacena los programas y los 
datos. La memoria puede ser RAM (memoria de acceso aleatorio), en la que se puede 
escribir y leer, o ROM (memoria de ‘sólo lectura’), en la que solamente se'puede leer. 

Memory map Mapa de memoria 

Esquema en que se indica qué zonas de memoria están dedicadas a las diversas funcio¬ 
nes: pantalla, sistema operativo, variables, etc. 


Menú 

Lista de opciones que se ofrece al usuario de un programa. 


Menú 


Microprocessor Microprocesador 

Circuito integrado que controla el funcionamiento del ordenador. Recibe y ejecuta las 
instrucciones que le entrega el intérprete de BASIC y controla todas lás interfaces. 

Modem, Modulator/Demodulator Modulador/demodulador, Modem 

Dispositivo que permite conectar el ordenador a una línea telefónica o la conexión a 
otros ordenadores o terminales remotos. 


Monitor 

Pantalla en la que se visualizan los gráficos, listados, mensajes, etc. También el progra¬ 
ma que permite observar la operación básica del ordenador. 


Mouse Ratón 

Seguidor boca abajo, o bola rodante. Al desplazarlo con la mano sobre una superficie 
plana, mueve el cursor por la pantalla. 
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MSB, Most Significant Bit Bit más significativo, BMS 

En un número binario, el bit de mayor peso; es decir, el que está más a la izquierda. 


NetWork ® ed 

Cuando se interconectan varios ordenadores para intercambiar programas y datos, vía 
modem, cable, etc., se forma una ‘red*. 

Nibble Cuarteto 

Medio byte, es decir, un número binario de cuatro bits. 


Node Nodo 

Unidad de espacio de trabajo en LOGO. Generalmente un nodo consume 4 bytes de 
espacio de memoria. 


Noise Ruido 

El sistema de sonido del CPC6128 permite generar ruidos aleatorios para simular efec¬ 
tos sonoros tales como explosiones, disparos, etc. 


Numeric keypad Teclado numérico 

Grupo de teclas numéricas destinadas a facilitar la introducción de números en el orde¬ 
nador. En el caso del CPC6128, estas teclas son además definibles por el usuario. 


OCR, Optical Character Recognition Lectura óptica de caracteres 

Sistema de lectura automática de caracteres escritos y de conversión a datos utilizables 
por el ordenador. 

Octal 

Sistema de numeración de base 8 en que cada dígito (del 0 al 7) se presenta con tres 
dígitos binarios. 

Off line Fuera de línea 

Situación en la que se encuentra un periférico cuando no está activamente conectado 
al ordenador. 
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On line 


En línea 


Término opuesto a Off line/Fuera de línea. 


Operating system Sistema operativo 

Programa que gestiona el manejo de la memoria, la ejecución de programas, priorida¬ 
des, control de tiempos, etc. Interfaz entre la máquina y los programas del usuario. 


Operator Operador 

Parte de una operación aritmética o lógica que describe en qué consiste la operación. 


Output Salida 

Todo lo que sale del ordenador como resultado de algún proceso o cálculo. 


Overwrite Sobreescribir 

Escribir borrando lo anterior. Borrar parte de la memoria o la pantalla, a veces invo¬ 
luntariamente, al escribir nuevos datos en ella. 

Paddle Empuñadura 

Mando principal del joystick. 


Page zero Página cero 

Zona de memoria, en CP/M entre las posiciones &0000 y &0100, en la que se almace¬ 
nan parámetros esenciales del sistema operativo. 


Parallel interface Interfaz paralelo 

Sistema de conexión del que es ejemplo el interfaz para impresora del CPC6128. Cada 
línea del bus de datos se conecta a la correspondiente patilla del corrector de la impre¬ 
sora. Los datos se transmiten en grupos simultáneos. Este método de transmisión es 
mucho más rápido que el que se consigue con un interfaz serie, en que los dígitos bina¬ 
rios se envían uno tras otro, por una sola línea. 
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Pascal 


Lenguaje estructurado de alto nivel que ha de ser compilado antes de su ejecución y 
que, por consiguiente, es muy rápido. Es el lenguaje que habitualmente se estudia des¬ 
pués de BASIC. 


PEEK 

Función de BASIC que examina una posición de memoria especificada e informa de 
su contenido. 


Peripheral Periférico 

Impresoras, módems, joysticks, magnetófonos, etc.; cualquier aparato que pueda ser 
conectado al ordenador para hacerlo más útil. 


Physical device Dispositivo físico 

Dispositivo que realmente existe (o sea, pieza de hardware), representable por un dispo¬ 
sitivo lógico. 


Pixel (picture element) Punto gráfico 

La menor área de la pantalla que puede ser controlada con independencia de las demás. 


Plotter Trazador automático 

Trazador especial que dibuja con plumas, tanto caracteres como dibujos propiamente 
dichos. 


POKE 

Orden de BASIC que escribe un valor en una posición de memoria especificada. 


Port Puerta 

Lugar específicamente direccionable de un interfaz para la entrada o salida de datos. 
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Portability Adaptabilidad 

Característica de un lenguaje o programa que hace fácil su adaptación a otra máquina, 
generalmente como consecuencia de la compatibilidad del sistema operativo (v. g. el 
CP/M de Digital Research). 


Primitives Primitivas 

Procedimientos, operaciones u órdenes básicos en los que consiste Dr. LOGO. 


Printer 

Máquina que escribe en papel los datos enviados por el ordenador. 


Impresora 


Procedure Procedimiento 

Serie de expresiones o instrucciones que indican al ordenador cómo realizar una tarea. 


Program Programa 

Conjunto de instrucciones que gobiernan el funcionamiento del ordenador para hacer 
que realice una tarea. Puede tratarse de una simple rutina en código de máquina o de 
una aplicación completa, tal como un paquete de contabilidad o un procesador de 
textos. 


Programming language Lenguaje de programación 

Lenguaje en el que escribe un programa, consistente en un conjunto de reglas que indi¬ 
can cómo se utilizan las palabras y los números. 


PROM 

Programmable Read Only Memory. Memoria programable de ‘sólo lectura’. Circuito 
integrado de memoria que, una vez grabado, ya no se puede borrar. (Véase también 
EPROM.) 


Prompt Mensaje inductor 

Un corto mensaje o grupo de caracteres que recuerda al lector que el ordenador está 
esperando una entrada. Por ejemplo, en CP/M es >; en LOGO, ?. 
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PSU, Power Supply Unit 


Fuente de alimentación 


Circuito que convierte la tensión alterna de la red a una tensión continua adecuada para 
los circuitos del ordenador (y de los periféricos). 


QWERTY keyboard Teclado tipo QWERTY 

Teclado del tipo de las máquinas de escribir estándar. 


RAM 

Random Access Memory. Memoria de acceso aleatorio. Memoria de la que se puede 
leer y en la que se puede escribir en el curso normal de la ejecución de un programa, 
en cualquier dirección y en cualquier orden. 


Random access Acceso aleatorio 

Término que hace referencia a la posibilidad de leer o escribir datos en un disco en el 
orden que se desee. 

Random number Número aleatorio 

Número generado por el ordenador que no es ni repetible ni predecible. El CPC6128 
genera una sucesión de números pseudoaleatorios. 


Ráster sean Barrido de trama 

Sistema de ‘escritura’ en la pantalla, en que las imágenes se forman mediante un barri¬ 
do de líneas horizontales. 

R/O, Read only De ‘sólo lectura’ 

Atributo de un disco, de un fichero, de una unidad de disco, etc., que impide la escritu¬ 
ra y la modificación de los datos. 

R/W, Read write De lectura/escritura 

Atributo de un disco, de un fichero o de una unidad de disco que permite tanto la lectu¬ 
ra como la escritura o la modificación de los datos. 
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Real number 


Número real 


Número que consta (o puede constar) de parte entera y parte decimal. 


Real time En tiempo real 

Efectos que ocurren en el momento presente, a diferencia de aquéllos que sólo se apre¬ 
cian cuando ha terminado el proceso que los provocó. 


Record Registro 

Unidad de medida de ficheros. En CP/M los registros son de 128 bytes. 

Recursion Recursividad 

Serie de etapas repetidas de un programa o una rutina, tales que cada una está relacio¬ 
nada con la anterior. 


Refresh Renovación, refresco 

Actualización de la información, ya sea de la pantalla o de la memoria. No siempre 
es un proceso destructivo; puede tratarse de una confirmación de la situación actual, 
en dispositivos que de otro modo perderían la información. 


Register Registro de máquina 

Posición de memoria transitoria de la UCP utilizada para almacenamiento provisional 
de los datos. 


(REM) Remark Comentario, observación 

Instrucción de un programa que el ordenador no ejecuta; sirve para que el programa¬ 
dor escriba anotaciones, o para escribir la fecha o número de versión del programa. 

Reserved word Palabra reservada 

Una palabra que tiene un significado especial para un programa, y que por consiguien¬ 
te no se puede utilizar fuera del contexto predefinido. Por ejemplo, BASIC no puede 
aceptar NEW como nombre de una variable, pues esa palabra está reservada para otro 
propósito. 
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Resolution 


Resolución 


La resolución es tanto mayor cuanto menor sea el tamaño de los pixels. Da una idea 
de cómo de ‘finos’ pueden ser los gráficos en un ordenador. 


Reverse Polish notation Notación polaca inversa 

Método de escribir operaciones aritméticas, adoptado por ciertos fabricantes de calcu¬ 
ladoras, en el que los operadores (+, —, *, /) se ponen después de los operandos. 


RF Modulator Modulador de radiofrecuencia 

Método por el cual las señales de video del ordenador se codifican y transmiten a la 
entrada de antena de un televisor. 


ROM 

Read only Memory. Memoria de ‘sólo lectura’. Memoria que no se puede borrar. 

Routine Rutina 

Una parte del programa que realiza una tarea específica. Un subprograma contenido 
en un programa más general, o que se ha escrito de forma independiente y puede ser 
incorporado a otros programas. 


RS-232C 

Un sistema concreto estandarizado para los interfaces de comunicación en serie. Los 
dispositivos que están en los dos extremos de la línea deben estar configurados de 
acuerdo con las normas EIA RS-232C. 


Screen editor Editor de pantalla 

Editor de textos o de programas que permite llevar el cursor a cualquier lugar de la 
pantalla para modificar su contenido. 


Scrolling Desplazamiento vertical, rodadura 

Término que describe la forma en que la pantalla ‘rueda’ hacia arriba cuando se ha 
llegado a la última línea y se necesita una nueva. 
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Sector 


Memoria mínima direccionable en un disco. El sistema de AMSTRAD está basado en 
sectores de 512 bytes. 


Separator Separador 

Signo que marca el límite entre palabras reservadas y otros elementos del programa. 

Serial interface Interfaz serie 

Este término hace referencia normalmente al estándar RS-232C, aunque existen otros 
métodos de transmisión en serie de datos. 


Simuiation Simulación 

Técnica de emulación de los procesos reales en un ordenador; por ejemplo, simulación 
de vuelo, de la conducción de automóviles, etc. 


Singied sided D e una so j a cara 

Hace referencia al tipo de disco en el que sólo se pueden grabar datos en una cara. 


Software 


Programación, software 


Conjunto de programas que hacen que el ordenador funcione; en disco, cinta, ROM, 
etcétera. 


Software engineering 


Ingeniería de programación 


Técnicas de programación consideradas desde un punto de vista científico, para distin¬ 
guirlas de las no organizadas o arbitrarias. 


Sound generator Generador de sonido 

Parte de un ordenador (circuitos o programas) que genera sonido y ruido. 
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Speech recognition Reconocimiento de voz 

Conversión de la palabra hablada en información reconocible por el ordenador. 


Speech synthesis Síntesis de voz 

Generación de voces simuladas mediante una combinación de circuitos y programas. 


Spread sheet Hoja electrónica 

Un programa que permite introducir datos numéricos para disponerlos en filas y co¬ 
lumnas y para hacer con ellos manipulaciones aritméticas. Al modificar uno de los da¬ 
tos se rehacen los cálculos para actualizar los resultados por filas y columnas. 


Sprite Agente gráfico móvil 

Objeto gráfico que se puede mover libremente por la pantalla, generado por software 
o por hardware de forma tal que pueda aparecer y desaparecer de modo aparentemente 
aleatorio. 

Stack PMa 

Área de memoria utilizada para almacenar datos provisionalmente y organizada de for¬ 
ma que el último dato depositado en ella es el primero que se recupera. 


Stream Canal 

Vía de salida del ordenador; por ejemplo, la pantalla, la impresora o el disco. 


String Cadena literal 

Un objeto formado por caracteres cualesquiera que el programa no puede tratar como 
numérico. Puede constar solamente de dígitos, pero el ordenador no lo considera como 
número mientras no se lo convierta a número mediante la instrucción adecuada. 


Structured programming Programación estructurada 

Técnica de programación lógica y premeditada con la que se escriben programas que 
fluyen de principio a fin en etapas bien diferenciadas. 
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Sub-routíne 

Véase Routine, rutina. 


Syntax error Error de sintaxis 

Cuando se infringen las reglas sobre la utilización de palabras clave y variables, BASIC 
emite este mensaje. 


System tracks Pistas del sistema 

Pistas reservadas en el disco para el sistema CP/M. 


Terminal 

Teclado de entrada con pantalla, o bien con teletipo de salida. 


TPA, Transient Program Area Area para programas transitorios 

Area de memoria que empieza en &0100, en la que en CP/M se almacena los programas 
de usuario y los datos por éstos generados. 


Track Pista 

Las pistas son coronas circulares del disco. Cada una se divide en un número fijo de 
sectores. Las pistas y sectores se inscriben en áreas específicas del disco en el proceso 
de inicialización. 


Transient program Programa transitorio 

Un programa de ayuda de CP/M, tal como PIP, que puede ser cargado en la TPA sin 
más que escribir su nombre en el teclado. 

Truncated Truncado 

Hace referencia a un número o una cadena que han sido recortados por la izquierda 
o por la derecha. Cuando el truncamiento es intencionado, suele incluir el redondeo 
del número. Si es intencionado, los caracteres sobrantes se eliminan para encajar el nú¬ 
mero o la cadena en el espacio disponible. 


Truth table Tabla de verdad 

El resultado de toda operación lógica puede ser ‘verdadero’ o ‘falso’ (para el ordena¬ 
dor, 1 o 0). La tabla de verdad da todos los resultados posibles de la operación en fun¬ 
ción del valor de los operandos. 
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Turtle Tortuga 

Un símbolo con forma de punta de flecha que funciona como cursor gráfico en la pan¬ 
talla gráfica de Dr. LOGO. 

Turtle graphics Gráficos de tortuga 

Imagen que deja la tortuga de Dr. LOGO al moverse por la pantalla. 

UDK, User Defined Keys Teclas definidas por el usuario 

En el CPC6128 hay 32 teclas a las que se pueden asignar tareas concretas, que el orde¬ 
nador realiza en cuanto el usuario las pulsa. 


Unsigned number Número entero sin signo 

Número entero interpretado como positivo. 


Utility Programa de ayuda 

Un programa completo con el que se realiza una operación común a varias aplicacio¬ 
nes; por ejemplo, ordenar alfabéticamente o copiar ficheros. 

Variable 

Un dato o grupo de datos puede ser identificado en un programa mediante un nombre; 
su valor puede variar como consecuencia de la ejecución del programa. 

Warm start Arranque en caliente 

Es el que se realiza cuando se pulsa [CTRLJC en CP/M. Reinicializa el subsistema de 
disco y devuelve el control al modo directo de consola de CP/M. 


Wildcard character Símbolo comodín 

Este término hace referencia a los símbolos * y ?. Dr. LOGO solamente admite el ?. 
El * representa cierto número de símbolos ?. Al mencionar nombres de ficheros, se 
pueden construir nombres ambiguos poniendo símbolos ? en lugar de caracteres. 

Write protection Protección contra escritura 

Un mecanismo que impide escribir en un disco o fichero. Un disco protegido contra 
escritura es un disco de ‘sólo lectura’. 
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Apéndice 3 

Que usted lo disfrute ... 


Rebotes 


Sencillo y apasionante. Para un jugador contra el ordenador. Teclado o joystick. 


10 ’REBOTES, por Alexander Martin 
20 'copyright (c) AMSOFT 1984 
30 ’ 

40 MODE 1:BORDER l:INK 0,1:INK 1,26:INK 2,24:INK 3,6 
50 SPEED KEY 15,2 
60 ENV 1,1,18,0,11,0,10 
70 ENT 1,10,2,2 
80 ENV 3,1,0,16,5,-3,2 
90 ENV 2,5,3,3,1,-21,22,9,-3,2 
100 ENT -2,10,2,2,5,-7,1,2,11,3,2,-4,8 
110 ’ 

120 ’ 

130 MOVE 30,32:DRAWR 0,400,1:MOVE 610,32:DRAWR 0,400,1 
140 PEN 3:L0CATE 3,l:PRINT STRING*(36,143) 

150 PEN 2:L0CATE 3,2:PRINT STRING*(36,143) 

160 PEN l:FOR r=5 TO 6:L0CATE 3,r:PRINT STRING*(36,143):N 
EXT r 
170 bx=9 

180 pelota5=5:puntos=0 
190 PEN líGOSUB 680:CLEAR INPUT 
200 IF INKEY*<>CHRS<32) AND JOY(0)<16 THEN 200 
210 LOCATE 3,23:PRINT SPACE5(36>:LOCATE 1,24:PRINT SPACE* 
(40) ; 

220 GOSUB 690:GOSUB 660:GOTO 280 
230 ’ 

240 ’ 

250 LOCATE bx,24:PRINT" ";STRINGÍ(4,131);" ":RETURN 

260 ’ 

270 ’ 

280 xa=l:ya=l:IF INT(RND*2)=1 THEN xa=-xa 
290 PEN l:GOSUB 250 
300 ORIGIN 0,400 
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310 x=bx+4:y=ll:xl=x:yl=y 
320 1 
330 ’ 

340 xl=x+xa:yl=y+ya 

350 IF x1=3 OR x1=38 THEN xa=-xa 

360 GOSUB 540 

370 IF y1=24 AND xl>bx+l AND xl<bx+6 THEN ya=-ya:yl=yl-2: 
SOUND 130,44,8,7,1,1:a=(<x>bx+5)OR(x<bx+2)):IF a=-l T 
HEN xa=xa*a:xl=xl+xa:yl=yl+l 
380 IF y=25 THEN LOCATE x,y:PRINT" ”:GOTO 500 
390 GOSUB 250 

400 t=TEST<(16*xl)-l,-(16*yl)-l) 

410 IF t<>0 THEN ya=-ya:xz=xl:yz=yl:yl=yl+ya:GOSUB 590:IF 
t=2 THEN puntos=puntos+10:GOSUB 660 
420 IF t=3 THEN puntos=puntos+20:GOSUB 660 
430 IF t=l THEN puntos=puntos+5:GOSUB 660 
440 IF yl=l THEN ya=l 

450 LOCATE x,y:PRINT" ":LOCATE xl,yl:PRINT CHR$(231):x=x1 
:y=yl 

460 IF y=l OR x=3 OR x=38 THEN SOUND 129,78,8,7,1,1 
470 GOTO 340 
480 1 
490 ’ 

500 pelotas=pelotas-l:SOUND 132,19,46,12,2,2:IF pelotas=0 
THEN GOTO 620 
510 GOSUB 660:GOTO 280 
520 ’ 

530 ’ 

540 IF (INKEY(8)=0 OR INKEY<74)=0) AND bx>2 THEN bx=bx-2: 
RETURN 

550 IF (INKEY(1)=0 OR INKEY(75)=0) AND bx<32 THEN bx=bx+2 
:RETURN 
560 RETURN 
570 ’ 

580 ’ 

590 LOCATE xz,yz:PRINT" “:RETURN 
600 ’ 

610 ’ 

620 IF puntos>=maximo THEN max imo=puntQS 
630 GOSUB 660:puntos=0:pe1otas=5:GOTO 130 
640 ’ 

650 ’ 

660 SOUND 130,0,20,13,3,0,31:L0CATE 1,25:PRINT "Maximo";m 
aximo; 

670 LOCATE 15,25:PRINT "Puntos"5 puntos:LOCATE 30,25:PRINT 
"Pelotas";peIotas:RETURN 
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680 LOCATE 3,23:PRINT"Pulse barra espadadora para empeza 
r":RETURN 

690 LOCATE 1,25:PRINT SPACEÍ(40);:RETURN 


Bombardero 


Una variación sobre un tema clásico. Para un jugador contra el ordenador. Sólo 
teclado. 


10 'BOMBARDERO, por Dave Town 
20 'copyright (c) AMSOFT 1984 
30 ’ 

40 MODE 1:CLS:INK 0,0:BORDER 0:INK 1,18:INK 2,6:INK 3,4:1 
NK 5,15:INK 6,2:INK 7,24:INK 8,8:INK 9,26:INK 10,10:IN 
K 11,20:INK 12,12 

50 SYMBOL AFTER 240: SYMBOL 241, &40, &60, &70, &7F, &7F, ScEF, &7 
, 8s0: SYMBOL 242, &0, &32,8c7A, &FE , 8eFA, &F2, &E0, &0 
60 puntos=0:maximo=0:avi*=CHR*(241)+CHR$<242): x-2: y=2:cae 
=0:a=2:b=2 
70 GOSUB 430 
80 CLS 

90 PEN 2:L0CATE 1,15:INPUT"E1ija nivel: 0 (AS) a 5 (PRINC 
IPIANTE) ",nivel 

100 IF nivel<0 OR nivel>5 THEN GOTO 90 
110 nivel=nivel+10 

120 LOCATE 1,15:PRINT CHR*(18>;:LOCATE 1,15:INPUT"E1ija v 
elocidad: 0 (MAX) a 100 (MIN) ",vel 
130 IF vel>100 OR vel<0 GOTO 120 
140 ’ 

150 'Edificios 
160 ’ 

170 MODE 0:FOR base=5 TO 15:F0R altura=21 TO INT(RND(1)*8 
+ nivel) STEP-1:LOCATE base,a 1 tura:PEN base-2:PRINT CH 
R$(143)+CHRÍ(8)+CHR$(11)+CHRÍ(244);:NEXT:NEXT 
180 PLOT 0,20,4:DRAW 640,20,4 

190 LOCATE 1,25:PEN 2:PRINT"PUNTOS” ; puntos?:LOCATE 12,25: 

PRINT H MAX"¡máximo; 

200 ’ 

210 'Juego 
220 ’ 

230 LOCATE x-1,y:PRINT" "? 
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240 PEN 1:LOCATE x,y:FRINT avií;:PEN 2 
250 IF y=21 AND x=15 THEN GOTO 290:ELSE GOTO 340 
260 ’ 

270 'Aterriza 
280 ' 

290 FOR c=0 TO 1000:NEXT 

300 puntos=puntos+100-(nive1*2):nivel=nivel-l:x=2:y=2:a=2 
:b=2:cae=0 

310 IF nivel<10 THEN ni ve1=10:ve 1=ve1-20 

320 IF vel <0 THEN vel=0 

330 GOTO 150 

340 FOR c=0 TO vel:NEXT 

350 x=x+l 

360 IF x=18 THEN LOCATE x-l,y:PRINT CHR*(18);:x=2:y=y+l: L 
OCATE x,y:PEN l:PRINT avi*;:PEN 2 
370 a*=INKEY$:IF a*=“ " AND cae=0 THEN cae=l:b=y+2:a=x 
380 IF y=21 THEN cae=0 

390 IF cae=l THEN LOCATE a,b:PRINT CHR*(252);:LOCATE a,b- 
l:PRINT" ";:b=b+l:IF b>21 THEN LOCATE a,b:PRINT" ";:L 
OCATE a,b-1:PRINT" ";:a=0:b=0:cae=0:SOUND 3,4000,10,1 
2 , 0 , 0,10 

400 ga=(a-0.5)#32:gb=400-<b*ló):bomba=TEST(ga,gb) 

410 IF bomba>0 THEN GOTO 670 

420 gx=(<x+1.5>*32>:gy=408-<y*16):choque=TEST<gx,gy) 

430 IF choque>0 THEN GOTO 570 
440 GOTO 230 
450 ’ 

460 ’Instrucciones 
470 ’ 

480 LOCATE 1,2:PEN 1:PRINT"Usted esta pilotando un avión 
sobre una ciudad desierta y tiene que pasar sobre los 
edi-ficios para aterrizar y repos- tar. Su avión se 
mueve de izquierda a derecha.PRINT 
490 PRINT:PRINT“A1 llegar a la derecha, el avión vuelve a 
salir por la izquierda, pero MAS BAJO.Dispone de un n 
umero limitado de bombas y puede hacerlas caer sobre 
los edi-fi- cios pulsando la BARRA ESPACIADORA. PRI 
NT 

500 PRINT:PRINT"Cada vez que aterriza, sube la altura d 
e los edi-ficios y la ve 1 oc idad. M ;: PRINT: PRINT: PRINT"U 
NA VEZ DISPARADA UNA BOMBA, YA NO PUEDE DISPARAR OTRA 
MIENTRAS NO HAYA EXPLOSIO-NADO LA PRIMERA!!!!"; 

510 PEN 2:L0CATE 1,24:PRINT:PRINT"Pulse una tecla para em 
pezar.■; 

520 a$=INKEY$:IF a*="" GOTO 520 
530 RETURN 
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540 ’ 

550 'Colisión 
560 ’ 

570 LOCATE x-l,y:PRINT CHR*(32>+CHR*<32>+CHR*<32)+CHR*<25 
3)+CHR*(8)+CHR*(238)+CHR*<8>; 

580 FOR t=l TO 10:SOUND 7,4000,5,15,0,0,5:PEN t:PRINT CHR 
*<253>+CHR*(8)+CHR*<238)+CHR*(8)+CHR*<32> +CHR*<8>;:FO 
R tm=0 TO 50:NEXT:NEXT:PEN 2 
590 CLS:LOCATE 1,5:PRINT"Ha conseguido*;puntos;"pantos." 
600 IF puntos>maximo THEN maximo=puntos:LOCATE 1,8:PRINT* 
BATIO EL RECORD!!"5 

610 puntos=0:LOCATE 1,12:PRINT'Pulse V para volver a empe 
zar "; 

620 a*=INKEY*:IF a*="v" OR a*=*V" GOTO 630 ELSE GOTO 620 
630 PEN l:MODE 1:x=2:y=2:a=2:b=2:GOTO 90 
640 1 

650 'Edificio bombardeado 
660 ’ 

670 LOCATE a,b-l:PRINT" *+CHR*(8);:PEN 4:F0R tr=l TO INT< 
RND(1)#3)+1:puntos=puntos+5:S0UND 3,4000,10,12,0,0,10 
:LOCATE a,b:FOR t=0 TO 4:PRINT CHR*(253)+CHR*(8)+CHR* 
(32)+CHR*(8)5:NEXT:b*b+l 
680 IF b=24 THEN b=b-l 
690 NEXT 

700 LOCATE 7,25:PRINT puntos?:cae=0:a=x:b=y:GOTO 230 


Tele tenis 


Con él empezó todo, y sigue siendo divertido. Para dos jugadores, o para uno contra 
el ordenador. Teclado o joystick(s). 

10 ’ TELE TENIS, por David Radisic 
20 ’ copyright (c) AMSOFT 1985 
30 ’ 

40 DEFINT a-z 
50 comp=l 

60 ENV 1,=11,20, -9 ,5000 

70 MODE 1:INK 0,10:BORDER 10:INK 1,26:INK 2,18:INK 3,0 

80 GOSUB 710 

90 GOSUB 150 

100 GOSUB 330 

110 GOSUB 420 

120 LOCATE 13,l:PRINT USING"#### "Spuníosl? 
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130 LOCATE 35,1:PRINT USING"#### ”;puntos2; 

140 GOTO 100 

150 PEN 2 

160 x <1)=3:y(1)=5 

170 x(2)=37:y <2)=22 

180 borde$=CHR$<233):borde2*=STRING*<2,207) 

190 LOCATE 1,3:PRINT STRING*<39,borde*):PRINT STRING$<39, 
bordeé) 

200 FOR i=l TO 19 

210 PRINT borde2$;TAB<38);borde2$ 

220 NEXT 

230 PRINT STRINGÍ<39,bordeé):PRINT STRING*(39,borde*); 

240 WINDOW #1,3,37,5,23 
250 CLS#1 

260 SYMBOL 240,0,60,126,126,126,126,60,0 
270 raq*="!"+ CHR$(8)+ CHR$(10)+"!" 

280 bor$=" "+CHRS¡<8)+CHR*<10>+" " 

290 pel*=CHR*(240) 

300 PEN 3 

310 LOCATE 2,l:PRINT"Jugador 1: 0";:LOCATE 24,1:PRINT" 

Jugador 2: 0" 

320 RETURN 

330 n=INT(RND*2):CLS#i:punto=0 
340 PEN 3 

350 FOR i=l TO 2:LOCATE x(i),y(i):PRINT raq*;:NEXT 

360 ON n GOTO 390 

370 xb=21:dx=l 

380 GOTO 400 

390 xb=19:dx=-l 

400 yb=12:dy=INT(RND#3)-l 

410 RETURN 

420 GOSUB 600 

430 oxb=xb:oyb=yb 

440 GOSUB 500 

450 IF nota>0 THEN SOUND 129,nota,50,15,1 
460 LOCATE oxb,oyb:PRINT* "5 
470 LOCATE xb,yb:PRINT pel$ 

480 IF punto=0 THEN 420 
490 RETURN 

500 LOCATE xb+dx,yb+dy:ch$=COPYCHR*(#0) 

510 nota=0 

520 IF ch$=" M THEN xb=xb+dx:yb=yb+dy:RETURN 
530 IF ch$="!" THEN dx=2-dx-2:dy=INT(RND*3)-1:nota=200:RE 
TURN 

540 IF ch*=LEFT*(borde2*,1) THEN 570 
550 IF ch$=borde$ THEN dy=2-dy-2:nota=250 
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560 RETURN 

570 IF dx>0 THEN puntosl=puntosl+l ELSE puntos2=puntos2+l 
580 punto=l:nota=2000 
590 RETURN 

600 p (1) = (INKEY(69)>=0)+(INKEY(72)>=0)+ABS((INKEY(71)>=0) 
+(INKEY(73)>=0))*2 

610 IF comp=l THEN p(2)=ABS(y(2)<yb)*2+(y(2)>yb):GOTO 630 
620 p(2)=(INKEY(4)>=0)+(INKEY(48)>=0)+ABS((INKEY(5)>=0)+( 
INKEY(49)>=0))*2 
630 PEN 3 
640 FOR i=l TO 2 

650 LOCATE x<i),y<i)+p<i):ch*=COPYCHR*(#0) 

660 IF ch*=" M THEN LOCATE 3¡(i),y(i):PRINT bor$;:y(i)=y(i 
)+ROUND(p(i)/2> 

670 LOCATE x<i),y(i):PRINT raq$! 

680 NEXT 
690 PEN 1 
700 RETURN 

710 PEN 2:PRINT:PRINT TAB(15)"Ping-Pong":PRINT TAB(15)"-- 


720 PEN 3:PRINT:PRINT TAB(10)"Para mover raquetas: 

730 PRINT:PRINT:PEN 1 

740 PRINT" Jugador 1 Jugador 2 Di receion":PRINT 

750 PRINT" A 6 ARRIBA" 

760 PRINT" Z 3 ABAJO":PRINT 

770 PEN 3:PRINT:PRINT TAB(14)"o con joysticks” 

780 PRINT:PRINT:PRINT:PRINT 
790 PEN 2 

300 PRINT TAB(7)"El ija <1> o <2> jugadores" 

810 i$=INKEY$:IF i$<>"l" AND i*<>"2" THEN 810 
320 IF i*="l" THEN comp=l ELSE comp=0 
830 MODE i:RETURN 
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Esgrima eléctrico 


¡Trate de ‘tocar’ a su oponente! Para dos jugadores. Teclado o joysticks. 

10 ’ ESGRIMA ELECTRICO, por Alexander Martin 
20 ’ copyright (c) AMSOFT 1985 
30 • 

40 DEFINT a-z 
50 MODE 0 
60 GOSUB 980 
70 GOSUB 1370 
80 GOSUB 270 
90 GOSUB 1520 
100 GOSUB 1370 
110 GOSUB 1270 
120 ’ 

130 ’ 

140 REM empezar 

150 IF termina THEN GOTO 100 

160 GOSUB 240 

170 FRAME:IF pldir THEN GOSUB 570 ELSE FRAME:FRAME 

180 FRAME:IF p2dir THEN GOSUB 620 ELSE FRAME:FRAME 

190 IF plsa=-l THEN GOSUB 670 

200 IF p2sa=-l THEN GOSUB 720 

210 GOTO 140 

220 ’ 

230 ’ 

240 IF j THEN 380 ELSE 480 
250 ’ 

260 ’ 

270 CLSíPEN 6 

280 PRINT:PRINT" ELIJA CONTROL” 

290 PRINT: PRINT: PRINT: PRINT" pulse J/T [ENTER3 11 
300 LOCATE 4,10:PRINT"JOYSTICKS"5TAB(4);"O TECLAS” 

310 LOCATE 12,10:IF j THEN PRINT”#":ELSE PRINT" " 

320 LOCATE 12,11:IF j THEN PRINT” ":ELSE PRINT”*" 

330 IF NOT(INKEY(45)) THEN j=-l 

340 IF NOT(INKEY(37)) THEN j=0 

350 IF NOT(INKEY(18)) THEN RETURN ELSE 310 

360 ’ 

370 ’ 

380 pl=JOY(0>:p2=JGY(l) 

390 pldir=(pl AND l)*-l+(pl AND 2)*0.5 
400 p2dir=(p2 AND l)*-i+(p2 AND 2)*0.5 

410 IF pl AND 16 THEN plsa=plsa-l:IF plsa=-l THEN AFTER 1 
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5 GOSUB 770 

420 IF p2 AND 16 THEN p2sa=p2sa-l:IF p2sa=-l THEN AFTER 1 
5 GOSUB 770 

430 IF pisa THEN pldir=0 

440 IF p2sa THEN p2dir=0 

450 RETURN 
460 ’ 

470 ’ 

480 p2dir=< <INKEY(4)=0)*1) + < <INKEY(5)=0)*-1) 

490 pldir=(<INKEY(69)=0)*l)+((INKEY(71)=0)*-1) 

500 IF INKEY(63)=0 THEN p1sa=p1sa-1:IF plsa=-l THEN AFTER 
15 GOSUB 770 

510 IF INKEY(10)=0 THEN p2sa=p2sa-1:IF p2sa=-l THEN AFTER 
15 GOSUB 770 

520 IF pisa THEN pldir=0 

530 IF p2sa THEN p2dir=0 

540 RETURN 
550 1 
560 ’ 

570 pt=plwp+pldir:IF pt>25 OR pt<6 THEN RETURN ELSE piwp= 
Pt 

580 pldir=0 ^ 

590 PEN l:LOCATE 3,p1wp:CLS#3:PRINT CHR*(209)5:RETURN 
600 1 
610 ’ 

620 pt=p2wp+p2dir:IF pt>25 OR pt<6 THEN RETURN ELSE p2wp = 
Pt 

630 p2di r-0 

640 PEN 2:L0CATE 18,p2wp:CLS#5:PRINT CHR*(211);:RETURN 
650 ’ 

660 ’ 

670 PAPER #4,4:WINDOW #4,4,17,p1wp,p1wp:CLS#4:FRAME:FRAME 

680 PAPER #4,0:CLS#4 

690 GOTO 570 

700 1 

710 ’ 

720 PAPER (46,5: WINDOW #6,4, 17, p2wp, p2wp: CLS#6: FRAME: FRAME 
730 PAPER #6,0:CLS#6 
740 GOTO 620 
750 ’ 

760 ’ 

770 pwpe=(plwp=p2wp):IF pisa AND N0T(p2sa) AND pwpe THEN 
plsc=plsc+l:SOUND 132,120,10,0,1,0:PRINT#1,a*(pise)5: 
IF plsc=9 THEN 860 

780 IF p2sa AND NOT(plsa) AND pwpe THEN p2sc=p2sc+l:SOUND 
132,100,10,0,l,0:PRINT#2,a*(p2sc)IF p2sc=9 THEN 86 
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0 

790 IF pisa THEN SOUND 132,40,70,0,1,1 

800 IF p2sa THEN SOUND 132,56,70,0,1,1 

810 plsa=0 

820 p2sa=0 

830 RETURN 

840 ’ 

850 ’ 

860 PEN 6 

870 LOCATE 2,10:PRINT"FIN DE LA PARTIDA" 

880 IF plsc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:INK 

1,0 

890 SOUND 129,1000,0,12,3:S0UND 130,900,0,12,3 

900 WHILE INKEYÍO" " : WEND 

910 t!=TIME:WHILE t!+2000>TIME:WEND 

920 WHILE INKEY$="":WEND 

930 CLS ú 

940 termina=-l 

950 RETURN 

960 ’ 

970 1 

930 a*(0)=”111101101101111" 

990 a$(l)="001001001001001" 

1000 a*(2)="111001111100111" 

1010 a$(3)="111001111001111" 

1020 a*(4)="100100101111001" 

1030 a$(5)="111100111001111" 

1040 a$(ó)="111100111101111" 

1050 a*(7)="111001001010010" 

1060 a$(8)="111101111101111" 

1070 a$(9)="111101111001001" 

1080 FOR n=0 TO 9 
1090 tiempo=LEN(a$<n)) 

1100 FOR n2=l TO tiempo 

1110 IF MID«(a*(n),n2,1)="1"THEN MID$(a*(n),n2,1)=CHR$(14 
3) ELSE MID$<a$<n) , n2, ll.=CHR$<32) 

1120 NEXT n2,n 
1130 ’ 

1140 ’ 

1150 b*=“ESGRIMA ELECTRICO" 

1160 c$=CHR$(32)+CHR$(164)+" Alexander Martin" 

1170 ENV 1,=9,2000:ENT -1,6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0 
1190 ENV 3,=9,9000 
1200 ’ 

1210 ’ 
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1220 BORDER 0 

1230 INK 0,12:PEN #4,l:PEN #6,2:PEN #1,1:PEN #2,2:PAPER # 
1,3:PAPER #2,3: PEN #0,6 
1240 RETURN ’de preparar constantes 
1250 ’ 

1260 ’ 

1270 INK 0,12:INK 1,2:INK 2,ó:INK 3,13:INK 4,20:INK 5,17: 
INK 6,20 

1280 WINDOW #3,3,3,6,25:WINDOW #5,18,18,6,25 
1290 WINDOW #1,3,5,1,5:WIND0W #2,16,18,1,5:WINDOW #7,1,20 
,1,5:PAPER #7,3 

1300 CLS:CLS#7:PRINT#1,a$<0)5:PRINT#2,a$<0)5:plsc=0:p2sc= 
0:plwp=5:p2wp=24:pldir=l:p2dir=l 
1310 GOSUB 570:GOSUB 620 

1320 SOUND 1,1000,0,12,2:SOUND 2,900,0,12,2 
1330 plsa=0:p2sa=0:termina=0 
1340 RETURN 
1350 ’ 

1360 ’ 

1370 CLS 
1380 PEN 7 

1390 FOR r«=l TO LEN(b«) 

1400 LOCATE 1+n,10 

1410 FOR r.2=LEN<b*) TO n STEP-1 

1420 PRINT MID$<b$,n2, 1) 

1430 LOCATE 1 + n, 10 

1440 SOUND 135,20£n2,5,12,2,1 

1450 NEXT n2,n 

1460 SOUND 135,100,0,13,3,1,20 

i 470 pen ó:print:print:print:print c* 

1480 FOR n=l TO 5000:NEXT 
1490 RETURN 
1500 ’ 

1510 ’ 

1520 IF j THEN RETURN 
1530 CLS 
1540 LOCATE 6,5 
1550 PRINT"CONTROLES" 

1560 PRINT 

1570 PRINT"JUGADOR 1 JUGADOR 2" 

1580 PRINT 

1590 PRINT" A arriba 6" 

1600 PRINT" 2 abajo 3" 

1610 PRINT" X disparo 

1620 t!=TIME:WHILE t!+1000>TIME:WEND 

1630 RETURN 
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Amthello 


El juego de la reflexión. Trate de rodear y capturar los cuadrados de su oponente sin 
dejar las suyos al descubierto. Para un jugador contra el ordenador. Sólo teclado. 

10 ’AMTHELLO, por M. J. Gribbins 
20 'copyright <c) AMSOFT 1984 
30 ’ 

40 BORDER 14 
50 CLEAR 

60 MODE 1:PEN 0:PAPER 1:CLS 

70 INK 0,0:INK 1,14:INK 2,18:INK 3,26 

80 LOCATE 2,3:PEN 3:PRINT"A":LOCATE 3,4:PRINT n M■:LOCATE 4 
, 5: PRINT'-T" : LOCATE 5,6: PRINT n H" 

90 LOCATE 6,7:PRINT"E":LOCATE 7,8:PRINT"L":LOCATE 8,9:PRI 
NT"L":LOCATE 9,10:PRINT"0" 

100 WINDOW #1,2,39,22,25:PAPER #1,1:PEN #1,0:CLS#1 
110 PEN 0 

120 LOCATE #1,5,l:PRINT#1,"LAS NEGRAS SIEMPRE EMPIEZAN" 

130 LOCATE #1,4,3:PRINT#1,"ELIJA BLANCAS <B> O NEGRAS <N> 
>1 

140 b*=INKEY*¡: IF b«="” THEN 140 

150 IF bS>="B" OR b$="b" THEN q%=3:n%=0:GOTO 210 
160 IF b$="N" OR b*="n" THEN q%=0:n%=3:GOTO 210 
170 CLS#l:LOCATE #1,4,3 

180 PRINT#1," SOLO BLANCAS O NEGRAS" 

190 FOR t=0 TO 1000:NEXT t 
200 GOTO 140 

210 DIM c%(10,10),p%<9,9>,cl%(8>,c2%(8>,cx%<9),cy%(9> 

220 i1%=2:j1%=2:i2%=7:j 2%=7 
230 FOR i%=0 TO 9 
240 c%(i%,o%)=6:c%<0,i%)=6 
250 c%(9,i%)=6:c%(i%,9)=6 
260 NEXT i% 

270 FOR i%=l TO 8 

280 READ cl%<i%),c2%<i%) 

290 FOR j%=l TO 8 
300 READ p%(i%,j %> 

310 c%(i%,j %)=6 
320 NEXT j %:NEXT i% 

330 c%(4,4)=3:c%(4,5)=0:c%(5,4)=0:c%(5,5)=3 

340 FOR U%=1 TO 58 

350 READ ar%,br%,cr%,dr% 

360 PLOT ar%,br%:DRAW cr%,dr%,0 
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370 NEXT k% 

380 GOSUB 1460 

390 IF q%=3 GOTO 770 

400 CLS#l:INPUT #1," ELIJA FILA “ie% 

410 IF e%<1 OR e%>8 GOTO 400 

420 LOCATE ttl,1,3:INPUT #1,“ ELIJA COLUMNA “ i d% 

430 IF d%<1 OR d%>8 GOTO 420 
440 IF c%(d%,e %)-6 GOTO 480 

450 CLSttl:LOCATE #1,5,2:PRINT#1,“ESE CUADRADO YA ESTA OCU 
PADO! H 

460 FOR t=l TO 1000:NEXT t 
470 GOTO 400 

480 PLOT 270+<30*d%),70+<30*e%>:DRAW 290+<30*d%),89+(30*e 
%) , q% 

490 PLOT 290+(30*d%),70+<30*e%):DRAW 270+<30*d%>,89+(30*e 
%) ,q% 

500 GOTO 540 

510 FOR m%=0 TO 19 STEP 2:PL0T 270+(30*d%),70+m%+(30*e%> 
520 DRAW 290+(30*d%),70+ra%+<30*e%),6:NEXT m% 

530 GOTO 400 

540 vrx%=0 

550 FOR k%=l TO 8 

560 vr%=0: c3%=d*A: c4%=e% 

570 c3%=c3%+cl%(k%):c4%=c4%+c2%(k%) 

580 IF c%(c3%,c4%)=n% GOTO 590 ELSE 600 
590 vr%=vr%+l:GOTO 570 

600 IF c%(c3%,c4%)=6 GOTO 610 ELSE 620 

610 NEXT k%:GOTO 670 

620 IF vr%=0 GOTO 610 ELSE 630 

630 vrx%=vrx%+vr% 

640 c3%=c3%-c1%(k%):c4%=c4%-c2%(k%) 

650 IF c%(c3%,c4%)=6 GOTO 610 ELSE 660 
660 c%(c3%,c4%)=q%:GOTO 640 
670 IF vrx%=0 GOTO 680 ELSE 710 
680 CLSttl:PRINT#1,"ESO NO ES POSIBLE" 

690 FOR t=l TO 1000:NEXT t 
700 GOTO 510 

710 e%=e%:d£=d%:vrx%=vrx% 

720 CLS#l:PRINT#l,"USTED VA A LA LINEA ";e% 

730 PRINTttl," Y A LA COLUMNA “;d% 

740 LOCATE #1,2,4:PRINTttl,“CON LO QUE CONSIGUE “¡vrx%;“ C 
UADRADO(S)" 

750 c%(d%,e%)=q%:GOSUB 1710 
760 GOSUB 1460 

770 CLS#1:LOCATE #1,10,2:PRINT#1, 8 AHORA ME TOCA A MI ... 

i » 
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780 p%=0:vrx%=0:vry%=0 

790 IF il%*jl%=l AND i2%*j2%=64 GOTO 860 

800 FOR k%=2 TO 7 

810 IF c%(2,k%)< >6 THEN il%=l 

820 IF c%(7,k%)< >6 THEN i2%=8 

830 IF c%(k%,2)< >6 THEN j1%=1 

840 IF c%< k%,7)< >6 THEN j2%=8 

850 NEXT k% 

860 FOR i%=ii% TO i2% 

870 FOR j%=jl% TO j 2% 

880 IF c%<i%,j %)=6 GOTO 1030 
390 NEXT j%:NEXT i% 

900 IF p%>0 THEN 1000 

910 IF pas%=l GOTO 920 ELSE 940 

920 CLSttl:PRINTttl,"BLOQUEADO! YO TAMBIEN TENGO QUE PASAR. 
FIN DE LA PARTIDA” 

930 FOR t=l TO 1000:NEXT t:GOTO 1550 

940 CLSttl:LOCATE #1,18,2:PRINTttl,"TENGO QUE PASAR" 

950 GOSUB 2720 

960 IF pas%=l GOTO 970 ELSE 990 

970 CLSttl: PRINTttl, "BLOQUEADO ! USTED TAMBIEN TIENE QUE 
PASAR. FIN DE LA PARTIDA." 

975 RETURN 

980 FOR t=l TO 1000:NEXT t:GOTO 1550 
990 GOTO 400 

1000 IF lc%=0 THEN 1c%=l:RANDOMIZE lc%:r1%=RND(lc%) 

1010 cxl%=cx%(r1%):cx2%=cy%(rl%) 

1020 GOTO 1220 

1030 vrx%=0 

1040 FOR k%=l TO 8 

1050 vr%=0:c3%=i%:c4%=j% 

1060 c3%=c3%+cl%(k%):c4%=c4%+c2%(k%) 

1070 IF c%(c3%,c4%)=q% GOTO 1080 ELSE 1090 
1030 vr%=vr%+l:GOTO 1060 

1090 IF c%(c3%,c4%)=6 GOTO 1100 ELSE 1110 

1100 NEXT k%:GOTO 1130 

1110 IF vr%=o% GOTO 1100 ELSE 1120 

1120 vrx%=vrx%+vr%:GOTO 1100 

1130 IF vrx%=0 GOTO 890 

1140 IF p% <i%,j %}<p% GOTO 890 

1150 IF p%(i%,j%)>p% GOTO 1160 ELSE 1170 

1160 p%=p%(i%,j%):vry%=vrx%:lc%=0:cx%<0)=i%:cy%(0)=j%:GOT 
O 890 

1170 IF vry%>vrx% GOTO 890 

1180 IF vry%<vrx% GOTO 1190 ELSE 1200 

1190 lc%=0:vry%=vrx%:cx%(0)=j%:cy%<0)=j%:GOTO 890 


k 
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1200 lc%=lc%+l:cx%<lc%)=i\:cy%(lc%)=j% 

1210 GOTO 890 

1220 cx2%=cx2%:cxl%=cxl%:vry%=vry% 

1230 CLS#1:PRINT#1,“YO VOY A LA FILA "5cx2% 

1240 PRINT#1," Y A LA COLUMNA H ;cxl% 

1250 LOCATE #1,1,4:PRINT#1,"CON LO QUE CONSIGO B 5vry%;" C 
UADRADO(S)" 

1260 PLOT 270+(30#cxl%),70+(30*cx2%):DRAW 290+<30*cx1%),8 
9+(30*cx2%),n% 

1270 PLOT 290+(30*cxl%),70+(30*cx2%):DRAW 270+<30*cxl%),8 
9+(30*cx2%>,n% 

1280 FOR t=l TO 1000:NEXT t 

1290 FOR k%=l TO 8 

1300 vr%=0:c3%=cxl%:c4%=cx2% 

1310 c3%=c3%+c1%(k%):c4%=c4%+c2%(k%) 

1320 IF c%(c3%,c4%)=q% GOTO 1330 ELSE 1340 
1330 vr%=vr%+l:GOTO 1310 

1340 IF c%(c3%,c4%)=6 GOTO 1350 ELSE 1360 
1350 NEXT k%:GOTO 1400 
1360 IF vr%=0 GOTO 1350 
1370 c3%=c3%-cl%(k%):c4%=c4%-c2%(k%) 

1380 IF c%(c3%,c4%)=6 GOTO 1350 
1390 c%(c3%,c4%)=n%:GOTO 1370 
1400 c%(cxl%, ex2%) =n*A 
1410 GOSUB 2720 
1420 GOSUB 1460 

1430 IF pas%=l GOTO 1440 ELSE 1450 

1440 CLSttl:PRINTttl," USTED TIENE QUE PASAR”:FOR t=l TO 
1000:NEXT t:GOTO 770 
1450 GOTO 400 
1460 FOR i%=l TO 8 
1470 FOR j%=l TO 8 
1480 FOR m%=l TO 19 STEP 2 

1490 z%=270+(30*i%):h%=70+(30*j%):w%=h%+m% 

1500 PLOT z%,w%:DRAW z%+20,w%,c%(i%,j%) 

1510 NEXT m%:NEXT j %:NEXT i% 

1520 x%=x%+l 

1530 IF x%=61 GOTO 1550 

1540 RETURN 

1550 cq%=0:cn%=0 

1560 FOR i%=l TO 8 

1570 FOR j%=l TO 8 

1580 IF c%(i%,j%)=q% THEN cq%=cq%+l 
1590 IF c%(i%,j%)=n% THEN cn%=cn%+l 
1600 NEXT j %:NEXT i% 

1610 IF cq%>cn% GOTO 1680 
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1620 IF cq%=cn% GOTO 1630 ELSE 1650 

1630 CLSttl:LOCATE #1,25,2:PRINT#1,"BLOQUEADO" 

1640 END 

1650 CLSttl: LOCATE ttl,5,1:PRINTttl,"USTED TIENE "Jcq% 5 " CUA 
DRADOS. YO TENGO "}cn% 

1660 LOCATE ttl,11,3:PRINTttl,"YO HE GANADO ... 

1670 END 

1680 CLSttl:LOCATE ttl,5,1:PRINTttl,"USTED TIENE ";cq%;" CUA 
DRADOS. YO TENGO ";cn% 

1690 LOCATE ttl,5,3:PRINTttl,"MUY BIEN. USTED HA GANADO ... 

III» 

1700 END 

1710 IF c%(2,2)=q% AND <c%(3,l)=n% OR c%(l,3)=n%) GOTO 17 
20 ELSE 1730 
1720 p%<3,l)=l:p%(l,3)=l 

1730 IF c%(7,7)=q% AND <c%(8,6)=n% OR c%(6,8)=n%) GOTO 17 
40 ELSE 1750 
1740 p%(8,6)=1:p%(6,8)=1 

1750 IF c%(2,7)=q% AND <c%(l,6)=n% OR c%(3,8)=n%) GOTO 17 
60 ELSE 1770 
1760 p%(l,6)=l:p%(3,8)=l 

1770 IF c%(7,2)=q% AND (c%<6,1)=n% OR c%(8,3)=n%) GOTO 17 
80 ELSE 1790 
1780 p%(6,1)=1:p%(8,3)=1 

1790 IF d%=l OR d%=8 OR e%=l OR e%=8 GOTO 1820 

1800 IF cxl%=l OR cxl%=8 OR cx2%=l OR cx2%=8 GOTO 1820 

1810 RETURN 

1820 FOR j%=l TO 8 STEP 7 
1830 FOR i%=2 TO 7 

1840 IF c%(i%,j%)=n% GOTO 1850 ELSE 1860 
1850 p%<i%+l,j%)=21:p%<i%-l,j %)=21 
1860 IF c%(j %,i%)=n% GOTO 1870 ELSE 1880 
1870 p%(j%,i%+l)=21:p%<j%,i%-1)=21 
1880 NEXT i% 

1890 FOR i%=2 TO 7 

1900 IF c%(i%,j %)=q% GOTO 1910 ELSE 1920 
1910 p%(1%+1,j%)=2:p%<i%-l,j%)=2 
1920 IF c%<j%,i%)=q% GOTO 1930 ELSE 1940 
1930 p%(j%,i%+l)=2:p%(j%,i%-1)=2 
1940 NEXT i%:NEXT j% 

1950 p%(1,2)=1:p%< 1 , 7 )=i:p%(2,l)=i:p%(7,i)=i 
1960 p% <2,8)=1:p%(7,8)=l:p%(8,2)=l:p% < 8,7)=1 
1970 FOR i%=2 TO 7 

1980 IF c%(l,i%-l)=q% AND c%(1,i%+l)=q% THEN p%(l,i%)=25 
1990 IF c%<8,i%—1)=q% AND c%<8,i%+1)=q% THEN p%<8,i%)=25 
2000 IF c%(i%-l,l)=q% AND c%< i%+l,l)=q% THEN p%(i%,l)=25 
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2010 IF c%<i%-l,8)= q% AND c%(i%+1,8)=q% THEN p%(i%,8)=25 
2020 NEXT i% 

2030 FOR j%=l TO 8 STEP 7 

2040 FOR i%=4 TO 8 

2050 IF c%<j%,i%)<>n% GOTO 2140 

2060 ic%=i%-l:IF c%<j%, ic%)=6 GOTO 2140 

2070 IF c%<j%,ic%)=q% GOTO 2080 ELSE 2090 

2080 ic%=ic%-l:GOTO 2070 

2090 IF c%<j%,ic%)=6 GOTO 2110 

2100 GOTO 2140 

2110 IF ic%=0 GOTO 2140 

2120 IF i%+l)=q% AND c%(j%,ic%-1)=6 GOTO 2140 

2130 p%<j%,ic%)=26 

2140 IF c%(i%,j%)<>n% GOTO 2230 

2150 ic%=i%-l:IF c%(ic%,j %)=6 GOTO 2230 

2160 IF c%(ic%,j%)=q% GOTO 2170 ELSE 2180 

2170 ic%=ic%-1:GOTO 2160 

2180 IF c%<ic%,j%)=6 GOTO 2200 

2190 GOTO 2230 

2200 IF ic%=0 GOTO 2230 

2210 IF c%<i%+l,j%)=q% AND C%( ic%-l,j%)=6 GOTO 2230 
2220 p%(ic%,j%)=26 
2230 NEXT i% 

2240 FOR i%=l TO 5 

2250 IF c%<j%,i%)<>n% GOTO 2340 

2260 ic%=i%+l:IF c%<j%,ic%)=6 GOTO 2340 

2270 IF c%<j%,ic%)=q% GOTO 2280 ELSE 2290 

2280 ic%=ic%+1:GOTO 2270 

2290 IF c%(j%,ic%)=6 GOTO 2310 

2300 GOTO 2340 

2310 IF ic%=9 GOTO 2340 

2320 IF c%(j%,i%-l)=q% AND c%(j%,ic%+1)=6 GOTO 2340 

2330 p%(j%,ic%)=26 

2340 IF c%<i%,j%>< >n% GOTO 2430 

2350 ic%=i%+l:IF c%(ic%,j %)=6 GOTO 2430 

2360 IF c%<ic%,j%>=q% GOTO 2370 ELSE 2380 

2370 ic%=ic%+l:GOTO 2360 

2380 IF c%(ic%,j%)=6 GOTO 2400 

2390 GOTO 2430 

2400 IF ic%=9 GOTO 2430 

2410 IF c%<i%-l,j%)=q% AND c%(ic%+1,j%)=6 GOTO 2430 
2420 p%(ic%,j%)=26 
2430 NEXT i%:NEXT j% 

2440 IF c%(1,1)=n% GOTO 2450 ELSE 2460 

2450 FOR i%=2 TO 6:p%(1,i%)=20:p%(i%,1)=20:NEXT i% 

2460 IF c%(1,8)=n% GOTO 2470 ELSE 2480 
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2470 FOR i%=2 TO 6:p%(i%,8)=20:p%(1,9-i%)=20:NEXT i% 

2480 IF c%<8,l)=n% GOTO 2490 ELSE 2500 

2490 FOR i%=2 TO 6:p%<9-i%,1)=20:p%<8,i%)=20:NEXT i% 

2500 IF c%(8,8)=n% GOTO 2510 ELSE 2520 

2510 FOR i%=3 TO 7:p%(i%,8)=20:p%(8,i%)=20:NEXT i% 

2520 IF c%(1,1)< >6 THEN p%(2,2)=5 

2530 IF c%(1,8)< >6 THEN p%(2,7)=5 

2540 IF c%(8,1)< >6 THEN p%<7,2)=5 

2550 IF c%(8,8)< >6 THEN p%<7,7)=5 

2560 pX(l,l)=30:p%(l,8)=30:p%(8,1)=30:p%(8,8)=30 

2570 FOR i%=3 TO 6 

2580 IF c%(1,i%)=n% THEN p%(2,i%)=4 
2590 IF c%(8,i%)=n% THEN p%(7,i%)=4 
2600 IF c%(i%,1)=n% THEN p%(i%,2)=4 
2610 IF c%(i%,8)=n% THEN p%(i%,7)=4 
2620 NEXT i% 

2630 IF c%(7 , 1)=q% AND c%(4,l)=n% AND c%(6,l)=6 AND c%(5, 
1)-6 THEN p%(6,1)=26 

2640 IF c%(1,7)=q% AND c%<l,4)=n% AND c%(l,6)=6 AND c%(l, 

5) =6 THEN p%(1,6)=26 

2650 IF c%(2,1)=q% AND c%<5,l)=n% AND c%(3,l)=6 AND c%(4, 
1)=6 THEN p%(3,1)=26 

2660 IF c%(1,2)=q% AND c%(l,9)«nX AND c%(l,3)=6 AND cX(l. 
4)=6 THEN p%<1,3)=26 

2670 IF c%(8,2)=q% AND c%<8,5)=n% AND c%<8,3)=6 AND c%(8, 
4)=6 THEN p%(8,3)=26 

2680 IF c%(2,8)=q% AND c%(5,8)=n% AND c%(3,8)=6 AND c%(4, 
8)=6 THEN p%(3,8)=26 

2690 IF c%<8,7)=q% AND c%(8,4)=n% AND c%(8,5)=6 AND c%(8, 

6) =6 THEN p%(8,6)=26 

2700 IF c%(7,8)=q% AND c%(4,8)=n% AND c%<5,8)=6 AND c%(6, 
8)=6 THEN p%<6,8)=26 
2710 RETURN 
2720 pas%=0 
2730 FOR i%=l TO 8 
2740 FOR j%=l TO 8 
2750 IF c%(iX,j %)=q% GOTO 2780 
2760 NEXT j X:NEXT i% 

2770 pas%=l:RETURN 

2780 FOR k%=l TO 8 

2790 vr%=0:c3%=i%:c4%=jX 

2800 c3%=c3%+cl%(k%):c4%=c4%+c2%(k%) 

2810 IF c3%<1 OR c3%>8 GOTO 2820 ELSE 2830 
2820 NEXT k%:GOTO 2760 

2830 IF c4%<1 OR c4%>8 GOTO 2820 ELSE 2840 
2840 IF c%(c3%,c4%)=n% GOTO 2850 ELSE 2860 
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2850 vr%=vr%+l:GOTO 2800 

2860 IF c%(c3%,c4%)=q% GOTO 2820 ELSE 2870 
2870 IF vr%>0 THEN RETURN 
2880 GOTO 2820 

2890 DATA 1,0,30,1,20,10,10,20,1,30,1,1,1,1,3 
2900 DATA 3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5 
2910 DATA 0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1 
2920 DATA -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,-1, 
30,1,20,10,10,20,1,30 

2930 DATA 263,100,263,120,270,130,255,130,255,130,255,140 
,255,140,270,140 

2940 DATA 270,140,270,150,270,150,255,150,255,160,270,160 
,270,160,270,180 

2950 DATA 270,180,255,180,270,170,255,170,270,190,270,210 
,270,200,255,200 

2960 DATA 255,200,255,210,255,220,270,220,270,220,270,230 
,270,230,255,230 

2970 DATA 255,230,255,240,255,240,270,240,255,250,270,250 
,270,250,270,260 

2980 DATA 270,260,255,260,255,250,255,270,270,280,270,300 
,270,300,255,300 

2990 DATA 255,310,255,330,255,330,270,330,270,330,270,310 
,270,310,255,310 
3000 DATA 255,320,270,320 

3010 DATA 310,355,310,375,350,355,335,355,335,355,335,365 
,335,365,350,365 

3020 DATA 350,365,350,375,350,375,335,375,365,355,380,355 
,380,355,380,375 

3030 DATA 380,375,365,375,380,365,365,365,410,355,410,375 
,410,365,395,365 

3040 DATA 395,365,395,375,425,355,440,355,440,355,440,365 
,440,365,425,365 

3050 DATA 425,365,425,375,425,375,440,375,455,375,455,355 
,455,355,470,355 

3060 DATA 470,355,470,365,470,365,455,365,485,375,500,375 
,500,375,500,355 

3070 DATA 515,375,515,355,515,355,530,355,530,355,530,375 
,530,375,515,375 
3080 DATA 515,365,530,365 
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Guante blanco 


Llévese las joyas del señor conde. Muchos obstáculos con los que tropezar, luces que 
encender, y cuidado con el perro. Para un jugador contra el ordenador. Teclado o 
joystick. 

10 'GUANTE BLANCO, por David Radisic 
20 'copyright (c) AMSOFT 1985 
30 ’ 

40 MODE 0:INK 0,0:BORDER 0:INK 1,26:INK 2, 15:INK 3,25 
50 INK 4,14:INK 5,24,12:INK 6,0:INK 7,0:INK 8,0:PAPER #1, 

60 retardo=200 

70 DIM objx(5,20),objy(5,20),joyax(5,20),joyay(5,20) 

80 GOSUB 380 

90 GOSUB 720 

100 pausa=200:GOSUB 340 

110 IF j oyas=0 THEN GOSUB 980 

120 PEN 4 

130 FOR i=10 TO 12 

140 LOCATE 15,i:PRINT"BOTIN"f 

150 NEXT 

160 PAPER 0:CLS#2:PAPER 8 

170 GOSUB 1180 

180 GOSUB 1240 

190 GOSUB 1380 

200 GOSUB 1520 

210 IF rm=0 THEN GOSUB 1910 

220 IF muerto=0 THEN 160 

230 pausa=100:GOSUB 340 

240 PAPER 0:CLS:PEN 1 

250 LOCATE 4,3:PRINT"Quiere jugar"; 

260 LOCATE 5,5:PRINT"otra vez?"; 

270 PEN 5:LOCATE 7,7:PRINT"S/N"; 

280 i$=UPPER$(INKEYÍ):IF i$<>"S" AND i$<>"N" THEN 280 
290 IF i$="N“ THEN MODE 2:PEN 1:STOP 
300 RUN 

310 IF perro=l THEN RETURN 

320 perro=l:perrox=minx(rm):perroy=miny(rm) 

330 RETURN 

340 FOR bucle=l TO pausa 
350 FRAME 
360 NEXT 
370 RETURN 

380 rm=l:xp=6:yp=4:hombre$=CHR$<224):perro=0:robado=0 
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390 SYMBOL 240,8,8,8,8,8,8,8,8 

400 SYMBOL 241,0,0,0,0,255,0,1.0 

410 SYMBOL 242,0,0 0,0,15,8,8,8 

420 SYMBOL 243,0,0,0,0,248,8,8,8 

430 SYMBOL 244,8,8,8,8,248,0,0,0 

440 SYMBOL 245,8,8,8,8,15,0,0,0 

450 SYMBOL 246,8,12,13,14,12,12,8,8 

460 SYMBOL 247,8,12,12,14,13,12,8,8 

470 SYMBOL 248,8,24,88,56,24,24,8,8 

480 SYMBOL 249,8,24,24,56,88,24,8,8 

490 SYMBOL 250,0,0,255,129,129,129,255,0 

500 SYMBOL 251,28,20,20,20,20,20,20,28 

510 SYMBOL 252,0,0,255,255,255,255,255,0 

520 SYMBOL 253,28,28,28,28,28,28,28,28 

530 SYMBOL 255,195,165,60,126,90,60,36,24 

540 ENT 1,12,-4,1 

550 ENT -2,=1000,60,=3000,40 

560 ENV 1,10,1,5,2,-4,1,2,-1,20 

570 vent$(1)=STRING$(2,250):vent$(2)=CHR$(251)+CHR$(8> +CH 
R$ (10) +CHR*i (251) +CHR* (8) +CHR* (10) +CHR* (251) 

580 puerta$(1)=STRING$(2,252):puerta*(2)=CHR*(253)+CHR$(8 
)+CHR*(10)+CHR* < 253)+CHR*(8)+ CHR*(10)+CHR*(253) 

590 conm$(1,0)=CHR$(246):canm$(l,1)=CHR*(247) 

600 conm*(2,0)=CHR*(248):conm*(2,1)=CHR*(249) 

610 joya*=CHR*(144):obj$=CHR*(233):perro*=CHR*(255) 

620 gol$=CHR$<246)+ CHR*(248)+CHR*(247)+CHR*(249)+CHR*(252 
)+ CH R«i(253) +CHR*<250) +CHR* (251) + j oyaS+obj *+per ro$ 

630 RESTORE 3020 
640 FOR 1=1 TO 5 

650 READ minx(i),miny<i),maxx(i),maxy(i) 

660 READ dir<i,l>,dir(i,2),dir(i,3),dir(i,4) 

670 NEXT 

680 WINDOW #1,minx(rm)-1,maxx(rm)+1,miny(rm)-1,maxy(rm)+1 

690 WINDOW #2,1,14,1,25 

700 CLS#l:PAPER #0,8 

710 RETURN 

720 ORIGIN 50,50 

730 INK 6,24,12 

740 RESTORE 3070 

750 GOSUB 1290 

760 LOCATE 1,20 

770 PEN 5:PRINT" > " 5 

780 PEN 1 :PRINT"Puertas y ventanas"; 

790 PEN 5:PRINT"<"j:PEN 1 

800 LOCATE 5,21:PRINT"para escapar"; 

810 LOCATE 9,1:PRINT"PASE"¡LOCATE 10,2:PRINT CHR$(213)CHR 
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$ < 212 ); 

820 pausa=300:GOSUB 340 
830 cls:locate i,3:ink 6,0 

840 PEN 1: PRINT hombre*;" Usted, el ladran": PRINT 
850 PEN 2:PRINT LEFT*(puerta*<1),1);LEFT*(puerta*<2),1);■ 
Puertas":PRINT 

860 PEN 3:PRINT conm*<1,0);conm*(2,0);" Luces apagadas”:P 
RINT 

870 PEN 3:PRINT conm*<1,1);conm*<2,1 )5 * Luces encendidas" 

:print 

880 PEN 4:PRINT LEFT*<vent*<1),1);LEFT*<vent*(2),1);“ Ven 
tanas"IPRINT 

890 PEN 5:PRINT joya*;” Piedras preci osas":PRINT 
900 PAPER l:PEN 0:PRINT obj*;" Obstáculos ":PEN 1:PAPER 
0:PRINT 

910 PEN 1:PRINT perro*;" El perro" 

920 pen 5:print:print:print 

930 PRINT"Uti1 ice joystick":PRINT“o teclas de cursor" 

940 aux=REMAIN(1) 

950 AFTER retardo*4,l GOSUB 340 
960 RETURN 
970 ’ 

980 'Generar joyas y obstáculos 
990 ’ 

1000 FOR hab=l TO 5 

1010 j oyar = INT(RND*8)+2:objr = INT(RND*10)+5 
1020 minx=minx<hab):miny=miny<hab):maxx=maxx(hab)¡maxy=ma 
xy(hab) 

1030 FOR i=l TO joyar 

1040 x=INT(RND#(maxx-minx+l))+minx 

1050 y=INT (RND*(maxy-mi ny+1) ) +mi ny 

1060 j oyax(hab,i)=x:j oyay(hab,i)=y 

1070 joyas=joyas+1 

1080 NEXT i 

1090 FOR i=l TO objr 

1100 x=INT(RND#(maxx-minx+1))+minx 

1110 y=INT(RND*(maxy-miny+1))+miny 

1120 objx(hab,i)=x:objy(hab,i)=y 

1130 NEXT i 

1140 jayas(hab)=joyar:obj <hab)=objr 
1150 NEXT hab 
1160 CLS 
1170 RETURN 

1180 ON rm GOTO 1190,1200,1210,1220,1230 
1190 RESTORE 2680:RETURN 
1200 RESTORE 2750:RETURN 
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1210 RESTORE 2820:RETURN 
1220 RESTORE 2890:RETURN 
1230 RESTORE 2970:RETURN 
1240 PAPER 0:READ rm*:PAPER 8 

1250 WINDOW #l,minx(rm)-l,maxx< rm)+1,miny <rm)-1,maxy(rm)+ 
l:CLS#l 

1260 PEN l:LOCATE 1,1:PRINT SPACE*<19); 

1270 LOCATE 1,1: PRINT *Habi tac i ort: “¡riníi 

1280 IF luces(rm) THEN INK 7,10:INK 8,10 ELSE INK 7,0:INK 

8,0 

1290 READ a*:IF a*=”FIN" THEN RETURN 
1300 IF a*="D" THEN 2190 
1310 IF a*=“W“ THEN 2270 

1320 IF a*="L M THEN GRAPHICS PEN 1 *. GOTO 2350 
1330 IF a*="S" THEN 2430 

1340 IF a*="F" THEN GRAPHICS PEN 6:GOTO 2350 
1350 PRINT"***ERROR ***"5 
1360 STOP 
1370 ’ 

1380 'Dibujar joyas/objetos 
1390 ’ 

1400 PEN 6 

1410 FOR i“1 TO obj(rm) 

1420 LOCATE objx(rm,i),objy<rm,i) 

1430 PRINT obj*; 

1440 NEXT 
1450 PEN 5 

1460 FOR i=l TO joyas(rm) 

1470 LOCATE joyax(rm,i),joyay<rm,i) 

1480 PRINT joya*; 

1490 NEXT 

1500 PEN l:LOCATE xp,yp:PRINT hombre*; 

1510 RETURN 

1520 x-f=0: y-f=0: PEN 1 

1530 IF INKEY (0)0-1 OR INKEY (72) 0-1 THEN yf = -l 

1540 IF INKEY (2) 0-1 OR INKEY (73) 0-1 THEN y+ = l 

1550 IF INKEY(8)< >-l OR INKEY(74)<>-1 THEN x + = -l 

1560 IF INKEY(1)< > — 1 OR INKEY(75)<>-1 THEN x + = l 

1570 IF x-f=0 AND y+=0 THEN 1640 
1580 LOCATE xp+x+ ,yp+y+:ht*=COPYCHR*<#0) 

1590 IF ASC(ht*)>239 AND ASC(ht*)<246 THEN 1520 
1600 IF ht*<>" " THEN 1670 
1610 LOCATE xp,yp:PRINT" "; 

1620 PAPER 0!LOCATE 4,24:PRINT" ";:PAPER 8 

1630 xp=xp+x+:yp=yp + y+ 

1640 LOCATE xp,yp:PRINT hombre*; 
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Í650 IF perro>0 THEN perro=perro MOD 2+1:IF perro=2 THEN 
2560 

1660 GOTO 1520 

1670 gol=INSTR(gol$,ht$) : car=ASC CMID$ (gol*, gol, 1) ) 

1680 ON gol GOTO 1700,1700,1700,1700,1760,1760,1860,1910, 
1980,2100,2660 
1690 GOTO 1610 

1700 IF gol>2 AND gol<5 THEN car=car-i 
1710 IF gol<3 THEN car=car+l 

1720 PEN 3: LOCATE xp + x-f, yp + y-f: PRINT CHR*(car); 

1730 luces(rm)=luces<rm) XOR 1 

1740 IF luces(rm) THEN INK 7,10:INK 8,10 ELSE INK 7,0:INK 
8,0 

1750 GOTO 1520 

1760 IF x-f < >0 AND y-f < >0 THEN 1640 

1770 IF x-f<0 THEN dir=4 ELSE IF x-f >0 THEN dir=3 

1780 IF y-f <0 THEN dir = l ELSE IF y-f >0 THEN dir=2 

1790 IF dir(rm,dir)=-l THEN 1640 ELSE rm=dir(rm,dir) 

1800 IF perro>0 THEN GOSUB 310 
1810 IF dir = l THEN xp=6:yp=maxy(rm) 

1820 IF dir=2 THEN xp=6:yp=miny<rm) 

1830 IF dir=3 THEN xp=minx(rm):yp=13 
1840 IF dir=4 THEN xp=maxx(rm):yp=13 
1850 RETURN 

1860 IF xp>5 AND xp<8 THEN 1890 
1870 IF xp<6 THEN dir=4 ELSE dir=3 
1880 GOTO 1790 

1890 IF yp>13 THEN dir=2 ELSE dir = l 

1900 GOTO 1790 

1910 PAPER 0:CLS:PEN 1 

1920 LOCATE 3,3:PRINT"Usted ha escapado"; 

1930 LOCATE 8,5:PRINT"con"; 

1940 IF joyas=robado THEN LOCATE 8,7:PRINT"todas las";ELS 
E LOCATE 8,7 

1950 PRINT USING ” ##”;robado; 

1960 PEN 5:L0CATE 8,9:PRINT"joyas"; 

1970 muerto=l:RETURN 

1980 LOCATE xp, yp: PRINT" " ; : xp = xp + x-f : yp=yp + y-f 
1990 i=0 
2000 i=i+1 

2010 IF i>j oyas(rm) THEN 1520 

2020 IF joyax(rm,i)<>xp OR joyay(rm,i)<>yp THEN 2000 

2030 IF i=joyas(rm) THEN 2060 

2040 j oyax(rm,i)=joyax(rm,joyas(rm)) 

2050 j oyay(rm,i)=joyay(rm,joyas(rm)) 

2060 joyas<rm)=joyas(rm)-1:robado=robado+l 
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2070 MOVE 400,150+(robado*2),1,1:DRAW 555,150+(robado*2) , 
1,1 

2080 SOUND 129,248,10,12,0,1 

2090 GOTO 1990 

2100 ruido=INT(RND*15) 

2110 SOUND 1,3000,10,ruido,0,0,10 

2120 PAPER 0:LOCATE 4,24:PRINT"Choque “;:PAPER 8 

2130 IF ruido<10 OR retardo=50 THEN 1640 

2140 retardo=retardo-50 

2150 aux=REMAIN(1) 

2160 AFTER retardo*4,1 GOSUB 310 
2170 GOTO 1640 
2180 ’ 

2190 'Dibujar puertas 
2200 ’ 

2210 READ no,pu$ 

2220 IF pu*="V" THEN pu=2 ELSE pu=l 
2230 PEN 2 

2240 pic*=puerta*(pu):GOSUB 2510 
2250 GOTO 1290 
2260 1 

2270 'Dibujar ventanas 
2280 ’ 

2290 READ no,ve* 

2300 IF ve$="y" THEN ve=2 ELSE ve=l 
2310 PEN 4 

2320 pic*=vent*(ve):GOSUB 2510 
2330 GOTO 1290 
2340 ’ 

2350 'Dibujar rectas 
2360 ’ 

2370 READ xl,yl,x2,y2 

2380 MOVE xl,yl,,0 

2390 DRAW xl,y2, ,01 DRAW x2,y2,,0 

2400 DRAW x2,yl,,0:DRAW xl,yi,,0 

2410 GOTO 1290 

2420 ’ 

2430 'Dibujar interruptores 
2440 ’ 

2450 READ no,co* 

2460 IF co*=”L" THEN co=l ELSE co=2 
2470 PEN 3 

2480 pic*=conm*(co,0):GOSUB 2510 
2490 GOTO 1290 
2500 ’ 

2510 'Escribir car 
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2520 ’ 

2530 READ x,y:LOCATE x,y:PRINT pie*; 

2540 no=no-l:IF no>0 THEN 2530 
2550 RETURN 

2560 PEN 1:LOCATE perrox,perroy:PRINT" "; 

2570 hombre*=CHR*<225) 

2580 IF (perrox=xp AND perroy=yp) OR (perrox=xp+x-f AND pe 
rroy=yp+y-f) THEN 2660 
2590 IF perrox<xp THEN perrox=perrox+l 

2600 IF perrox>xp THEN perrox=perrox-1 

2610 IF perroy<yp THEN perroy=perroy+l 

2620 IF perroy>yp THEN perroy=perroy-l 

2630 LOCATE perrox,perroy:PRINT perro*; 

2640 SOUND 1,0,RND#40,10,1,2,31 

2650 GOTO 1520 

2660 PRINT"MORDIDO"; 

2670 muerto=l:RETURN 

2680 DATA Pasillo 

2690 DATA L,64,308,226,4 

2700 DATA D,2,H,6,3,6,22 

2710 DATA D,2,V,4,12,9,11 

2720 DATA S,1,L,4,11 

2730 DATA S,1,R,9,14 

2740 DATA FIN 

2750 DATA Sala 

2760 DATA L,2,308,258,4 

2770 DATA D,1,V,10,12 

2780 DATA W,1,H,6,3 

2790 DATA W,1,V,2,12 

2800 DATA S,2,R,10,11,10,15 

2810 DATA FIN 

2820 DATA Comedor 

2830 DATA L,2,308,258,4 

2840 DATA W,1,V,10,12 

2850 DATA W,1,H,6,3 

2860 DATA D,1,V,2,12 

2870 DATA S,2,L,2,11,2,15 

2880 DATA FIN 

2890 DATA Cocina 

2900 DATA L,2,276,384,4 

2910 DATA D,2,H,6,5,6,22 

2920 DATA W,1,H,10,22 

2930 DATA W,1,V,14,13 

2940 DATA D,1,V,2,13 

2950 DATA S,1,L,2,16 

2960 DATA FIN 
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2970 

DATA 

Despensa 

2980 

DATA 

L,2,276,256,4 

2990 

DATA 

D,1,V,10,12 

3000 

DATA 

S,1,R,10,11 

3010 

DATA 

FIN 

3020 

DATA 

5,4,8,21,0,4,3,2 

3030 

DATA 

3,4,9,21,-1,-1,1,-1 

3040 

DATA 

3 ,4,9,21,-1,-1,-1,1 

3050 

DATA 

3,6,13,21,1,0,-1,5 

3060 

DATA 

3 ,6,9,21,-1,-1,4,-1 

3070 

DATA 

L,64,308,480,100 

3080 

DATA 

F,250,98,294,102 

3090 

DATA 

F,250,306,294,310 

3100 

DATA 

F,390,94,430,106 

3110 

DATA 

F,390,302,430,314 

3120 

DATA 

F,474,240,488,270 

3130 

DATA 

F,474,124,488,154 

3140 

DATA 

F,58,240,72,270 

3150 

DATA 

L,226,308,322,180 

31Ó0 

DATA 

L,160,180,480,100 

3170 

DATA 

L,64,180,160,100 

3180 

DATA 

FIN 
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